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LE MANOIR 
DE ROCHEBRUNE 



Pascal et Laurent KERLOCH 


E n quête d'une aventure, arrivez dans le pays de Dragonnaze qui 
domine une solide forteresse. Le Baron de ce territoire a jeté depuis 
bien longtemps un maléfice sur la région. De plus, il retient sa fille, 
la belle Hélène, prisonnière dans son donjon, la Tour Noire. 


De nombreux princes du royaume sont venus lui demander sa main, 
mais aucun n'a pu ressortir vivant du château. En apprenant cela, vous 
décidez, vous aussi, de tenter votre chance. 

Pour obtenir l'accès à la Tour Noire et délivrer la Princesse, il vous fau¬ 
dra réunir un diamant, un lingot, un coffre, un sceptre et une couronne, 
ainsi que tuer le Dragon (mais attention ! ses coups sont mortels !). 
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180 ' 

190 ' ♦ PRESENTATION » 

200 ' 

210 HODE hBORDER l 

220 INK 0,0!lNK MBjINK 2.6îINK 3,24 

230 PEN 2: LDCATE 16,5îPRINT"Lb Manoir" 

240 LOCATE 20,8:PRINT"(Je" 

250 LOCATE l6,ll!PRINT"Rochebrune" 

260 PEN 3 

270 LOCATE 16,6:PRINT STRIN6$(10,CHR$(208)) 

280 LOCATE 20,9jPRINT STRING$(2,CHR$(208)) 

290 LOCATE 16.12îPRINT STRINB$(10,CHRJ(208)) 

300 PEN lîLDCATE 20,15:PRINT“par Pascal" 

310 PEN IsLOCATE 20.17!PRINT"et Laurent Kerloch" 

320 ENV 1,100,-0.5,20 

330 ENV 2,50,-0.5.10 

340 SOUND 1.239,60,12.1iSOUND 2.478,60,12.1 
350 SOUND 1,319,30.12,2:S0UND 2,638,30,12,2 
360 SOUND 1,319.30,12,2;S0UND 2,630,30.12,2 
370 SOUND l,239,60,12,l!S0UND 2,478,60,12.1 
380 SOUND l,190,60,12.l!S0UND 2.379,60,12.1 
390 SOUND 1,169,60,12,1:S0UND 2,338,60,12,1 
400 SOUND l,190,30,12,2îSOUND 2,379,30,12.1 
410 SOUND 1,190,30,12,2!S0UND 2,379,30,12.1 
420 SOUND l,169,6O,12,l!S0UND 2,338,60,12,1 
430 SOUND 1,190,60,12,lîSOUND 2,379,60,12,1 
440 SOUND 1,169,120,12,1;S0UND 2,338,120,12,1 
450 FOR ATT=1 TQ 300Û:NEXT ATT 
460 ' 

470 ' * INITIALISATION ♦ 

480 ' 

490 HODE 1 

500 ROUTI=liPARAM=l!DIM ARM$(12):DIM TRESII12) 

510 DATA Diamant,Lingot,Coffre,Sceptre,Couronne,Daque,Arc,Hache,Armure,La 
nce,Epee 

520 FOR A=8 TO 12:READ AI;TRES$(A)=A$!NEXT AîFOR A=1 TO 12 STEP 2:READ Al 
;ARMI(A)=AliARH$(A+l)=Al!NEXT A 

530 CLS:DIM ARM(120)’!DIM TRES (12)!WIND0W #1.28,40.1,2!WIND0W 12,28,40,4, 
17;WINDQW I3,28,40,19,25:HIND0« #0,1,26,4,25!WIND0W I4,1,3,1,2!WIND0N 15, 
5,26,1,2 

540 INK 0,0:INK 1,15;INK 2,6;INK 3,18:F0R A=0 TO 5:PAPER lA.OîNEXT A;PEN 
HO.hPEN tl,l!PEN I2,3;PEN i3,2;PEN i4,3;PEN 45.2 
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550 BORDER 3 

560 PLOT 50,400,2!DRAHR 0,-34,2:DRA«R -50,0,2;PL0TR 0,-12.2!DRAWR 418,0,2 
iDRAWR 0,-354,2îPL0TR 12,0,2{DRAHR 0,ll4,2îDRAWR 210,0,2:PL0TR 0,12,2:DRA 
WR -210,0,2:DRAWR 0,228,2;DRAWR 210,0,2:PL0TR 0,12,2iDRAWR -2I0,0.2!DRAWR 
0,34,2:PL0TR -12,Û,2;DRAWR 0,-34,2 
570 DRAWR -358,0,2!DRAWR 0,34,2 

580 PRINT" Des rumeurs circulent quidisent que le terrible Baron de Ro 
chebrune garde sa fille, la Princesse Helene, dans le Donjon de son Ha 
noir, la Tour Noire " 

590 PRINT" Vous avez décidé, de la délivrer et vous vous dirigez ver 
s le soibre Manoir de Rochebrune/îPRINT 
600 IF INKEYIO"" THEN 610 ELSE 600 

610 CLSîPRINT* Le Sphinx qui en garde l’entree vous énoncé vos droits 
et obligations :"!PRINT 

620 PRINT" Vous devez rassembler 5 Trésors differents et tuerie Méchant 
Baron qui des votre arrivée se metamor- phose en un Terrifiant Dragon 

II 

t 

630 PRINT;PRINT"Hai5 vous etes bien decidea tenter votre chance et vous 
penetrez dans le Ma- noir. Le pont-levis se referme derrière vous.";PR 
INT 

640 IF INKEY$="'’ THEN 640 ELSE CLS 
è50 ' 

660 ' * TIRAGE DE LA FORCE DE DEPART t 
670 ' 

680 PRINT m,"Votre Force" 

690 FRC=INT(RND(I)»10)+2 

700 IF FRC=2 THEN PRINT'Vous n'avez pas de chance du tout, l'ordinateur n 
e vous attribut que 2 pointsde valeur" 

710 IF FRC>2 AND FRC<=5 THEN PRINT"Vous n'avez pas beaucoup";PRINT"de cha 
nce, 1'ordinateur":PRINT"vou5 donne "FRC;" points de"!PRINT*valeur" 

720 IF FR05 AND FRC<10 THEN PRINT"Vous avez de la chance, l'ordinateur 
vous donne ";FRC;* points de valeur" 

730 IF FRC>=10 AND FRC<=12 THEN PRINT"L'ordinâteur vous apprécié";"vraime 
nt beaucoup, il vous";"donne"FRC"points de valeur* 

740 PRINT 
750 ' 

760 ' * RENCONTRE ♦ 

770 ' 

780 FOR ATT=0 TO 3000;NEXT ATT:CLS 
790 CLS #5;CLS 14 

800 LOCATE #1,1,2:PRINT il," "FRC 
810 GOSUB 880 
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B20 IF FRC<0 THEN 3900 

830 RC=INT(RND(1)*100)+1 

840 IF RC<=40 THEN 1050 

850 IF RC<=65 THEN 2100 

860 IF RC<=90 THEN 3130 

870 IF RC<=100 THEN 2380 

880 ' TABLEAU DES ARMES 

890 LOCATE #2.1,1 

900 PRINT#2."Armes ï";PRINT#2,'"' 

910 FOR D=1 TO 120 
920 IF ARI1(D)=0 THEN 950 

930 IF ARH(D)=I2 THEN PRINT #2."£pee de Feu"î60T0 950 
940 PRINT I2.ARHI(ARM(D));TAB(9)ARM(D) 

950 NEU D 

960 * TABLEAU DES TRESORS 

970 LOCATE 13,1,1 

980 PRINTjl3,"Trésors :";PRINT#3.''" 

990 FOR D=1 TO 6 

1000 IF TR£S(D)=0 THEN 1020 

1010 PRINT #3,TRES${TRES(D))iTAB(9)TRES(D) 

1020 NEXT D 

1030 IF R0UTI=6 AND DRAG0N=1 THEN 4090 
1040 RETURN 
1050 ' 

1060 ' ♦ RENCONTRE AVEC UN MONSTRE ♦ 

1070 ’ 4444444444444444444*<444*4»44 

1080 ' TYPE DE MONSTRE 
1090 TDH=INT(RND(1)M00)M 
1100 IF TDH<=2 THEN H$="9 Licorne'‘îB=5!G0T0 1300 
1110 IF T0M<=5 THEN M$=" Centaure"! 8=8*.GOTO 1300 
1120 IF TDH<=8 THEN M$=* Spectre":8=4;GOTO 1300 
1130 IF TDM<=10 THEN M$=" Gobelin";B=3:60T0 1300 
1140 IF TDM<=13 THEN Ml=" SQuelette":B=4:G0T0 1300 
1150 IF TDM<=16 THEN Mi="e Sorciere“;e=5i6QT0 1300 
1160 IF TDM<=19 THEN M$=" Sphinx''!B=6;G0T0 1300 
1170 IF TDM<=21 THEN M$="e Chimere":B=0iGOTO 1300 
1180 IF TDM<=24 THEN M$=" Titan":B=10:G0T0 1300 
1190 IF TDH<=27 THEN M$=" Démon":8=6:GOTO 1300 
1200 IF TDM<=30 THEN M$=" Fantome":B=6;60T0 1300 
1210 IF TDM<=32 THEN M$="e Mofflie":B=5:G0T0 1300 
1220 IF TDH<=35 THEN H$=" Diâble'':B=5:G0T0 1300 
1230 IF TDM<s38 THEN M$='' 6riTTon":B=6:G0T0 1300 




1240 IF TDI1<=47 THEN M$=“ Cobra":8=5:6010 1300 
1250 IF TD«<=57 THEN H$=" Troll*:B=9:G0T0 1300 
1260 IF TDH<=66 THEN Ml='’e 6oule":B=2;G0T0 1300 
1270 IF TDM<=76 THEN Hl=" Va(spire':B=6;60T0 1300 
1200 IF TDM<=85 THEN Ml=" Gnome":B=5:GOTO 1300 
129Ô IF TDM<=1Û0 THEN M$=" Balroo":B=8:60T0 1300 
1300 ‘ FORCE DU MONSTRE 
1310 FDM=B+(INT(RND(1)*3)) 

1320 PRINT"Vous etes attaque par":PRINT"un“M$“ de force“FDM 
1330 PRINT #5,"Monstre :" 

1340 PRINT ll5,"Un"MI" Force"FDM 
1350 PRINT 

1360 SOUND 1,319,16,5:S0UND 1,239,16,5:S0UND 1,253,16,5:S0UND 1,284,16,5 
1370 SOUND 1,253,48,5:SOUND 1,239,16,5:S0UND 1,213,48,5:S0UND 1,190,16,5 
1380 SOUND 1,213,16,5:50UND 1,239,16,5:S0UND 1.253,16,5:S0UND 1,239,32,5 
1390 SOUND 1,253,16,5:S0UND 1,284,48,5:S0UND 1,319,48,5 
1400 REM 

1410 REM * COMBAT * 

1420 REM 

1430 INPUT''Voulez-vous combattre ce monstre (0/N) ",DESIR! 

1440 IF DESIR$="0" OR DESIR!="o* THEN 1460 

1450 IF DESIRI="N" OR DESIRI=*n" THEN 2050 ELSE 1430 

1460 ' 

1470 ' 4 CHOIX DE L'ARME ♦ 

1480 ' 

1490 PRINT 

1500 PRINT "Avec quelle arme voulez- vous combattre ?*:INPUT " ( Si vou 
5 n'avez pas d'arme tapez 0 )";VARH 
1510 FOR V=0 TO 120 

1520 IF ARM(V)=VARH OR VARH=0 THEN ABUS=0 : GOTO 1570 
1530 NEXT V 

1540 PRINT"Vou 5 ne possédez pas cette arme ":ABUS=ABUS+1 
1550 IF ABUS=10 THEN VARH=0;G0T0 1570 
1560 GOTO 1460 
1570 ' 

1580 ' ♦ CALCUL DU COMBAT » 

1590 ' 

1600 PRINT 

1610 PRINT"Pour engager le combat tapez sur une touche'':PRINT 
1620 CA=CA+1 

1630 IF INKEYIO** THEN 1650 
1640 GOTO 1620 • 
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1650 VC0I1B=FDM-VARM 

1660 IF VARM>FDM THEN VC0MB=0 

1670 PRINT''Le combat est de Force“VC0MB 

1680 LDCATE #4,l,l:PRINTI4,"De5'' 

1690 FOR A=1 TO 20;S0UND 1,60,1,2 
1700 DES=INT(RND(l)M0>+2 
1710 DESI=(RIGHT$(STR$(DES),2)) 

1720 LOCATE I4,1,2;PRINT I4,DES$ 

1730 FOR B=l TO lOOsNEXT B 
1740 NEXT A;SOUND 1,119,5,2 

1750 IF DES<VCOMB THEN 1910 

1760 IF DES>VCOMB THEN 1780 

1770 IF DES=VC0f1B THEN 1850 

17B0 * 

1790 ' ♦ GAGNE ♦ 

1800 ' 

1810 FRC=FRC+VC0I1B 

1820 PRINT"Vous avez oaqne, les des ont Tait "DES 
1830 PRINT 
1840 GOTO 750 
1850 ' 

1860 ’ ♦ LE MONSTRE FUIT ♦ 

1870 ' ♦♦** 4 **#** 44 » 4444 *# 

1880 PRINT"Le monstre fuit, les des ont fait "DES 
1890 PRINT 
1900 GOTO 750 

1910 ' ♦ 44*44444 

1920 ' ♦ PERDU ♦ 

1930 ’ 4*4444444 

1940 FRC=FRC-VCOMB 

1950 PRINT"Vous avez perdu, les des ont fait "DES 
1960 PRINT 

1970 IF VARM=0 THEN 750 

1980 FOR D=1 TO 120 

1990 IF ARM(D)<>VARM THEN NEXT D 

2000 AR«(D)=0 

2010 NbAriBes=NbArmes-l 

2020 CLS 12 

2030 60SUB 880 

2040 GOTO 750 
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2050 ' 

2060 ' « RETRAIT DE POINTS * 

2070 ' 

2080 FRC=FRC-FDH 
2090 GOTO 750 

2100 ' 44 * 44 »# 4444444444 » 4444***444 

2110 ' 4 RENCONTRE AVEC UN TRESOR 4 

2120 ’ 4444444444444444444444444444 

2130 VTRES=INT(RND(l)45)+8 

2140 IF RI6HTI(TRES$(VTRES),2)=''ne'' THEN T$="e “ ELSE T$=" " 

2150 PRINT''Vou 5 avez trouve un''T$!PRINT TRESKVTRES)" de valeur"VTRES 
2160 PRINT 

2170 SOUND 1,71,24,5îSOUND 1,60,48,5!SDUND 1,53,24,5îSOUND 1,47,98,5 
2180 SOUND 1,53,24,5îSOUND 1,60,24,5:SÛUND 1,53,24,5:S0UND 1,60,24,5 
2190 SOUND 1,63,24,5!S0UND 1,71,120,5 

2200 ' 444444444444444444444 

2210 ' 4 ACHAT DU TRESOR ? 4 

2220 ' 444444444444444444444 

2230 IF R0UTI=6 THEN PRINT"Mai5 vous avez déjà les 5 trésors":PRINT;GOTO 

750 

2240 FOR D=1 TO 5 

2250 IF TRES(D)=VTRES THEN PRINT“Mais vous possédez déjà untresor de cett 
e valeur":PRINT;GOTO 750 
2260 NEXT D 

2270 IF FRC<VTRES THEN PRINT"Mais ce trésor est trop cher pour votre bo 
urse“:PRINT;G0T0 750 

2280 INPUT "Voulez-vous l'acheter ? (0/N) ";DESIR$ 

2290 IF DESIRI="0" OR DESIR$="o“ THEN 2310 
2300 IF DESIR$="N' OR DESIR4="n" THEN 750 ELSE 2280 

2310 ' 4444444444444444444444444444444 

2320 ' 4 CALCUL DE L'ACHAT DU TRESOR 4 

2330 ' 4444444444444444444444444444444 

2340 TRES(ROUTI)=VTRES 
2350 R0ÜTI=R0UTI+1 
2360 FRC=FRC-VTRES 
2370 GOTO 750 

2380 ' 44444444444444444444444444444 

2390 ' 4 RENCONTRE AVEC LE SORCIER 4 

2400 ' 44444444444444444444444444444 

2410 PRINT"Vou 5 rencontrez le sorcieret il vous propose son aide en vo 
us offrant un sortilège," 

2420 GOSUB 2490 
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2430 SOUND 1,239,64,SîSOUND I.284,32,5;SOUND 1,284,48,5; SOUND 1,301,16,5 

2440 SOUND 1,284,32,5;S0UND 1,253,64,5;S0UND 1,301,32,5;S0UND 1,379,64.5 
2450 GOSUB 2490 

2460 SOUND 1,239,48,5;S0UND 1,253,16,5;S0UND 1,284,32,5;S0UND 1,301,48,5 
2470 SOUND 1,338.16,5;S0UND 1,301,32.5;S0UND 1,284,128.5 
2480 GOTO 2530 

2490 SOUND 1,284,32,5; SOUND 1,239,64,5;SOUND 1,213,32,5;S0UND 1.190,48,5 
2500 SOUND 1,179,16,5;S0UND 1,190,32,5;S0UND 1,213,64,5 ;SOUND 1,253,32,5 
2510 SOUND 1,319,48,5;S0UND 1,284,16,5;S0UND 1,253,32,5 
2520 RETURN 
2530 ’ 

2540 ’ ♦ CONSULTATION ♦ 

2550 ' 

2560 INPUT-Acceptez-vous ? (O/N) ",REPI 
2570 IF REPI^-O* OR REPI=“o“ THEN 2600 

2580 IF REPI=''N'' OR REP$='‘n* THEN FOR ATT=0 TO 150û;NEXT ATT;CLS;60T0 105 
0 

2590 GOTO 2560 
2600 ‘ 

2610 ' ♦ SORTILEGE ♦ 

2620 ' H*********** 

2630 S0RT=INT(RND{1)»10Û)+1 

2640 IF S0RT<=I5 THEN 2730 

2650 IF S0RT>I5 AND S0RT<=45 THEN 2790 

2660 IF S0RT>45 AND SORT<=70 THEN 2830 

2670 IF S0RT>70 AND S0RT<=75 THEN 2940 

2680 IF S0RT>75 AND SORT<=100 THEN 2690 

2690 R0UTI=ROUTI-1;IF R0UTI=0 THEN R0UTI=1;G0T0 2630 

2700 TRES(R0UTI)=0 

2710 PRINT;PRINT'' Le Sorcier vous retire un Trésor.";CLS I3;G0SUB 880 

2720 GOTO 2960 

2730 ARI1IPARAM)=12 

2740 PARAH=PARAM+1 

2750 NbArffles=NbArfles+l 

2760 GOSUB 880 

2770 IF NbArines<13 THEN PRINT;PRINT" Le Sorcier vous fait bonde l'Eoee d 
e feu orace a laquelle vous pourrez tuerie,Dragon" ELSE 2960 
2780 GOTO 2960 
2790 FRC=FRC+12 

2800 PRINT;PRINT'' Le Sorcier vous offre unefiole qui contient un ele-xir. 
Grâce a cette potion vous gagnez 12 points de Force." 
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2810 LOCATE #1,1,2;PRINT 11/ "FRC 
2820 60T0 2960 

2830 PRINTîPRINT'Le Sorcier vous offre deuxaraes de votre choix'';PRINT 
2840 FOR E=1 TO 2 

2850 IF NbArffle5>=12 THEN PRINT" Mais vous possédez déjà 12 armes,"sGOTO 
2960 

2860 INPUT" Une arme de quelle Puis-sance desirez-vous ?“.VARM 

2870 IF VARM<2 OR VARM>I1 THEN 2860 

2880 ARM(PARAM)=VARM 

2890 PARAM=PARAM+1 

2900 NbArffles=NbAr«es+l 

2910 GDSUB BBOîPRINT 

2920 NEXT E 

2930 GOTO 2960 

2940 IF DRAG0N=1 THEN 2600 ELSE PRINTîPRINT“Le Sorcier tue le Draoon avot 
re place, vous n'aurez donc pas a le faire* 

2950 DRAG0N=1 
2960 ' 

2970 ' ♦ COMBAT MONSTRE/DRAGON ♦ 

2980 ' ♦##4»4«44444*##4»4444«444 

2990 FOR ATT=0 TO 3000:NEXT ATT:CLS 
3000 IF DRAB0N=1 THEN 1050 
3010 I=INT(RND{1)*2)+1 
3020 IF 1=1 THEN 1050 

3030 ENV 1,6,4,5,9,-2,4,13,7,6,8,-1,5,3,7,8 
3040 ENV 2,12,-2,6,13,5,6,8,-1,5,5,7,7,B,-4,9 
3050 ENV 3,3,3,7,6,1,8,12,-3,4,7,3,3,3,-2,2 
3060 ENT 1,4,-1,8,5,7,9,4,6,7,5,-5,9,15,9,B 
3070 ENT 2,5,4,7,12,-1,9,6,1,8,B,-2,9,5,1,7 
3080 ENT 3,4,-1,8,6,-2,9,12,3,5,12,-1,4,5,1,3 
3090 SOUND 1,478,600,7,1,1,23 
3100 SOUND 2,598,580,6,2,2,11 
3110 SOUND 4,898,685,8,3,3,31 
3120 GOTO 3400 

3130 ' ♦44444444»4*444»4«44444444# 

3140 ‘ # RENCONTRE AVEC UNE ARME ♦ 

3150 ' 4*444###4##4444*444*44»»#44 

3160 VARM=INT(RND(I)*10)+2 

3170 IF RIGHT$(ARH$(VARM),l)=''e“ THEN T$="b " ELSE T$=" “ 

3180 PRINT“Vou 5 avez trouve un“T$:PRINT ARMKVARM)" de valeur“VARM 
3190 PRINT 

3200 SOUND 1,478,24,5:S0UND 1,638,12,SîSOUND 1,478,12,SsSOUND 1,426,48,5 
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3210 SOUND 1,379,24,5:S0UND 1,478,12,SîSOUND 1,379,12,5:S0UND 1,319,48.5 
3220 SOUND 1,284,12,SîSOUND 1,319,12.SîSOUND 1.284,12,SîSOUND 1,253,12.5 
3230 SOUND 1,239,48,5 
3240 ' 

3250 ' 4 achat de L'ARME ? ♦ 

3260 ' 

3270 IF FRC<VARM THEN PRINT'''/ous ns pouvez pas achstercette arffle"îPRINTî8 
OTO 750 

3280 IF NbArfles>=l2 THEN PRINT'’Vous avez déjà 12 arjies"îPRINTîGOTO 750 
3290 INPUT*Voulez-vous l'acheter ? (O/N) '=;DESIR$ 

3300 IF DEBIRI=*0" OR DESIR$="g'' THEN 3320 
3310 IF DESIR$=''N'' or DESIRI=‘'n'' THEN 750 ELSE 3290 
3320 ' 

3330 ' ♦ CALCUL DE L'ACHAT DE L'ARME * 

3340 ’ 4444444444*44444444444444»44444 

3350 ARMIPARAM)=VARM 
3360 PARAM=PARAH+1 
3370 NbAr(iie5=NbAr(!ies+l 
3380 FRC=FRC-VARM 
3390 GOTO 750 

3400 ' 444444*44444#4444#444*444 

3410 ■ ♦ COMBAT AVEC LE DRAGON ♦ 

3420 ’ #4H444m444#»*44*4*4*44 

3430 PRINT" Un (sonstrueux Dracjon de force 12 se dresse devant vous î sa 
bouche crache des Fl amines. "î PR INT: PR INT #5,“MONSTRE î''îPRINT 45.“Un Dra 
gon de Force 12“ 

3440 INPUT"Voulez-vous le combattre “îREPI 
3450 IF REP$=''N'' OR REP$="n'’ THEN 3900 
3460 IF REP$="0“ OR REPI="o" THEN 3480 
3470 GOTO 3440 
3480 ' 

3490 ' ♦ CHOIX DE L'ARME ♦ 

3500 ' 

3510 PRINTîPRINT "Avec quelle arme voulez- vous combattre ?*îINPUT " ( 
Si vous n'avez pas d'arme tapez 0 )"!VARM 
3520 FOR V=0 TO 120. 

3530 IF ARH(V)=VARH OR VARM=0 THEN ABUS=0 : GOTO 3580 
3540 NEXT V 

3550 PRINT"Vous ne possédez pas cette arme "îABUS=ABUS+ 1 
3560 IF ABUS=W THEN VARM=0î60T0 3580 
3570 GOTO 3480 
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3580 ' 

3590 ' » CALCUL DU COMBAT * 

3600 ' 

3610 PRINTîPRINT''Pour enqaqer le combat tapez sur une touche''!PRINT 
3620 CA=CA+1 

3630 IF INKEY$<>“" THEN 3650 

3640 GOTO 3620 

3650 VC0MB=I2-VARH 

3660 IF VARM>12 THEN VCOMB=0 

3670 PRINT"Le combat est de force“VCOHB 

3680 LOCATE #4,l,l;PRINT#4,"De5" 

3690 FOR A=l TO 20:SOUND 1,60,1,2 
3700 DES=INT(RND(l)M0)+2 
3710 DES$=(RI6HTI(STR$(DES),2)) 

3720 LOCATE #4,1,2;PRINT 14,DES! 

3730 FOR B=I TO 100;NEXT B 

3740 NEXT A:SOUND 1,119,5,2 

3750 IF DES<VCOMB THEN 3900 

3760 IF DES>VCOMB THEN 3830 

3770 IF DES=VCOMB THEN 3780 

3780 ' »##***4#*»» 

3790 ' * EX EQUO * 

3800 ' 44#4#4«4## 

3810 PRINT" Vous n'avez pas réussi a terrasser ce Draqon car les des on 
t fâit''!DES;"Vous allez de nouveau lui etre confronte* 

3820 GOTO 3440 

3830 ' 4»4##4444 

3840 ' * GAGNE » 

3850 ‘ »#♦♦♦♦♦♦♦ 

3860 DRAG0N=1:CLS #5:FRC=FRC+VCOHB:LOCATE ill,l,2!PRlNT #1." *FRC 
3870 PRINT''Vdus etes sorti victorieuxde ce terrible combat " 

3880 FOR B=1 TO 2000;NEXT B 

3890 CLSiIF R0UTI=6 THEN 4090 ELSE 2100 

3900 ' ♦#4«44*4 

3910 ' # MORT 4 

3920 ' 44444444 

3930 CLS:PRINT* Helas, les monstres du Manoir de Rochebrune ont eu rai 
son de votre courageet de votre témérité, vousempechant ainsi de mener a 
bien votre entreprise." 

3940 PRINT:PRINT* Vous n'avez pas réussi a tuer le Pere de la Belle Hele 
ne prisonnière de la Tour Noire, et a reunir les 5 Trésors du Manoir." 
3950 PRINT:PRINT" D'autres Chevaliers vont essayer de délivrer la Prin 
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cesse «aïs votre prou-esse restera célébré dans les villaoes de ce triste 
pays."SPRINT 
3960 dOSUB 4050 

3970 SOUND 1,253,24,SsSOUNO 1,284,24,SsSOUND 1,253,120,5 
3980 60SUB 4050 

3990 SOUND 1.253.24,SsSOUND 1.239,24,SsSOUND 1,213,120,SsSOUND 1.190.24,5 
4000 SOUND Kiy*?.48.SsSOUND 1,190,24,SsSOUND 1,213,48,SsSOUND 1,23^24.5 
4010 SOUND 1,253,120,5 
4020 GOSÜB 4050 

4030 SOUND 1.239,24.SsSOUND 1,253,24,SsSOUND 1,284.96.5 
4040 END 

4050 SOUND 1,284.24.SsSOUND 1,239,48.SsSOUND 1.284,24.SsSOUND 1.379.48.5 
4060 SOUND 1,284.24.SsSOUND 1,239,120,SsSOUND 1.213,24.SsSOUND 1,190,24.5 
4s)70 SOUND 1,213,24,SsSOUND 1,239,24,5sSOUND 1.253,24,5 
4080 RETURN 
4090 ' 

4100 ■ ♦ GLOIRE ♦ 

4110 ' 

4120 CLSsPRINT" Vous avez vaincu le Baronde Rochebrune et reuni lesS Très 
ors, ce qui vous donne l'accès a la Tour Noire dans laquelle vous a 
ttend la Belle Helene."sPRINT 
4130 IF INKEY$="" THEN 4130 ELSE CLS 

4140 PRINT" La Mort du Dragon marque la fin du maléfice que le Baron avai 
t jete sur ce pavs :"sPRiNT 

4150 PRINT"Un vent violent chasse lesnuages noirs qui s'etaientamonceles 
et découvre un ciel d'azur."sPRINT 

4160 PRINT" Aores votre départ, les villaoeois virent le Cha- teau s'emb 
raser et quand la fuinee se dissipa, il nerestait plus pierre sur oierr 
e. Pendant des siècles rien ne poussa en ces lieux." 

4170 PRINT 
4180 ENV 1,15,-1,5 

4190 SOUND l,478,32,15,lsS0UND 1,358,32.15,1 
4200 SOUND l,358,16,15,lsS0UND 1,319,16.15.1 
4210 SOUND l,284,32,15.l!S0UND 1.358,32,15,1 
4220 SOUND 1.239,64.15,l!S0UND 1,284.48.15.1 
4230 SOUND 1.284,I6,15,lîS0UND 1.268,32,15,1 
4240 SOUND 1,239,16,15.1;S0UND 1,268,16,15,1 
4250 SOUND l,284.16,15,l!S0UND 1,268,16,15.1 
4260 SOUND 1,239,32,15,1:S0UND 1,319,16,15,1 
4270 SOUND 1,358,16,15,l.'SOUND 1,319,16,15,1 
4280 SOUND 1,284,16,15,1;S0UND 1,319,32,15,1 
4290 SOUND l,478,32,15,l!S0UND 1,358,32,15,1 
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4300 SOUND l,35B,16,15,l!S0UND 
4310 SOUND 1,284,32,15,1 jS 0UND 
4320 SOUND, 1,239,64,15,IsSOUND 
4330 SOUND 1,284,16,15,1;S0UND 
4340 SOUND 1,239,16,15,1:S0UND 
4350 SOUND l,26B,16,15,l!S0UND 
4360 SOUND 1.358,16,15,lîSDUND 


1.319.16.15.1 

1.358.32.15.1 

1.284.48.15.1 

1.268.16.15.1 

1.284.16.15.1 

1.319.48.15.1 

1.358.96.15.1 
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LABELMATIC 



Michel ARCHAMBAULT 


L e rôle spécifique de ce programme de "qualité commerciale" est 
d'imprimer des adresses sur des étiquettes adhésives en continu, 
pour envois en nombre ("MAILING"). Il possède toutes les fonctions 
d'un gestionnaire de fichiers classique, à savoir : mise à jour, recher¬ 
che, tri, etc. Le fait qu'il soit 100 % Basic ne nuit pas à la rapidité 
qui demeure plus que suffisante. 

Il dispose en outre des caractères AZERTY accentués et de sécurités 
anti-plantage afin d'être confié à une personne sans formation infor¬ 
matique (vérifié). 

Côté imprimante, il faut un modèle 80 colonnes de marque quelconque 
chargé avec des étiquettes en continu. Deux étiquettes par rangée de 
format normalisé 89x36, 102x36 ou 107x36 mm. Ce format 
importe peu car le centrage de chaque rubrique est autornatique. Pour 
fixer les idées, disons le prix de revient moyen d'une étiquette adhé- 
sive est de l'ordre de 5 à 8 centimes TTC. 


LE PROGRAMME 

Ne sursautez pas à la vue de certains caractères bizarres au sein de 
certains mots ; ils donneront à l'écran et sur imprimante des caractè¬ 
res accentués ; a commercial = à ; anti-slash = ç ; crochet 
ouvert + SHIFT (accolade ouverte) = é ; accolade fermée = è ; barre 
verticale = ù; crochet ouvert = ° ; crochet fermé = § (définitions en 
GOSUB 51000). 

LE MENU PRINCIPAL (1000) 

Il propose dix options. Après l'exécution de chacune d'entre elles, il 
y a toujours retour à ce menu. 
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Chaque option débute par une confirmation (O/N) pour les étourdis. 
Le nombre de fiches en RAM (maxi —200) apparaît en haut à droite 
de l'écran. 

Tous les "questionnaires" utilisent le module 50000. Exemple, la ligne 
1150 : TEX$ rassemble tous les symboles d'options. Le module 50000 
fait quatre opérations : 

— il affiche, en bas de l'écran, la liste des réponses possibles, 

— il transforme les réponses en majuscules, 

— si la réponse n'est pas dans TEX$, il émet un BIP sonore et repose 
la question, 

— il retourne au programme le numéro K de l'option choisie. 

NOTE : Nous vous conseillons d'enregistrer d'abord sur une cassette 
à part les modules 50000 et 51000. Ils vous seront très utiles pour 
d'autres programmes ; il suffit de les joindre au programme en cours 
par MERGE" ". 


LE FICHIER D'ADRESSES 

Il est mis dans un tableau DIM AD$(200,5). Cela nous procure une 
grande souplesse d'utilisation (modification de fiches, recherche, tri, 
etc.). Seul défaut, ce grand tableau en RAM ralentit les opérations de 
sauvegarde sur cassette. Les "rubriques" ou "champs" de 0 à 5 sont 
les suivantes : 

0 = nom, exemple "Mr. Jean BERGER" (22 caractères) 

1 = adresse 1, exemple "6 rue MACHIN" (22 caractères) 

2 = adresse 2, lieu-dit, etc. (22 caractères) 

3 = code postal (5 caractères) 

4 = ville (16 caractères) 

5 = (facultatif) secteur de distribution (3 caractères) mais peut être porté 
à 11 caractères pour le numéro de téléphone, pays étranger ou toute 
autre remarque. 

Nos longueurs maximales en caractères sont arbitraires ( = minimum). 
Vous pouvez élargir. 


LA PAGE D'ECRAN 

Elle représente une seule fiche à la fois. Elle spécifie si vous êtes en 
saisie ou en vision, son numéro, le titre de chaque champ, sa longueur 
en pointillés (en saisie), et en bas, un menu de trois lettres. 

S = fiche suivante 
P = fiche précédente 
F = FIN (retour au menu). 

En saisie, une quatrième option "E" (Erreur), qui efface la fiche à l'écran. 
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NOTE : Grâce à la commande LINE INPUT au lieu de INPUT, on peut 
entrer des virgules et des guillemets. 


LA VISION 

La vision du fichier fiche par fiche peut se faire en donnant le numéro 
de fiche ou par recherche du nom, même une partie du nom. Ainsi, 
"RCHAMB" présentera la fiche "ARCHAMBAULT” ; "RAT" peut pré¬ 
senter la fiche de M. GARRAT, puis celle de Mme. RAT, mais " RAT" 
(un espace devant) ne conduira qu'à Mme. RAT. 


LE TRI 

Ou classement peut se faire d'après n'importe quel champ (classement 
alphabétique, ordre ASCII). Nous utilisons ici le "tri à bulle", la "bulle" 
étant l'indice zéro du tableau DIM. Un tri sur un grand désordre peut 
demander près de cinq minutes, mais s'il s'agit de mettre en place quel¬ 
ques fiches nouvellement entrées ("suite de saisie"), cela ne prend que 
quelques secondes. 


LA SAUVEGARDE DU FICHIER 

Elle débute par le nombre de fiches en RAM (NF), le nom du fichier (à 
entrer au clavier) et enfin le contenu des fiches. A la lecture, il n'est 
pas utile d'entrer ce nom (tapez ENTER). 


L'IMPRESSION 

Elle peut se faire sous deux modes. La "GLOBALE" ou ligne à ligne : 
sur une ligne, on a le numéro puis le contenu de la fiche. C'est un lis¬ 
ting personnel. Enfin, le "LABEL" ( = étiquette) qui vous demande le 
numéro de départ et le numéro final. Pour éditer tout le fichier, tapez 
"1" puis "D" ( = dernier). 

TRES IMPORTANT : En lignes 8100 et 9060, figure l'ordre 
CHR$(27)"R"CHR$(1 ) qui, sur les imprimantes de la marque EPSON 
(et assimilées), conduit aux caractères français (à, é, è, ù, ç,...). 
Consultez la notice de la vôtre afin de modifier ou confirmer ce code. 
Si votre imprimante n'a pas cette possibilité (par code ou par switches), 
supprimez cette commande. 

Le listing présenté fait 7391 octets, soit 4 "blocks". 
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CONSEILS D'UTILISATION 


Suppression de fiche 

Appelez cette fiche par l'option modification ; elle apparaît vide. Met¬ 
tez des "zzzzz" dans chaque champ. Si vous refaites un tri, elle ira 
en bout de liste. Sinon, laissez-la en place, mais lors de la prochaine 
suite de saisie, recherchez par "zzz", modification, et "remplissage" 
par la nouvelle personne. 

Adresses commerciales 

Utilisez le champ adresse 1 pour le nom du service, et "adresse 2" 
pour l'adresse proprement dite. 


COMMANDE DU MAGNETO-CASSETTE 

Il est normal que l'écran paraisse bloqué quelques instants (absence 
du curseur) avant et après un enregistrement de fichier. C'est 
l'AMSTRAD qui réorganise sa RAM, et le tableau DIM le gène un peu. 
Ce temps augmente avec la taille du fichier. 

Un bug de l'AMSTRAD : au-delà de 90 fiches (environ), l'écran devrait 
afficher "Saving - nom du fichier - Block 1". Or, à la place du nom 
attendu, apparaissent parfois des fragments de chaînes du fichier ! Sans 
importance, le nom réel que vous avez tapé ( = FICH$) est une des don¬ 
nées enregistrées. 


LA PLACE MEMOIRE 

Avec notre fichier personnel de 112 fiches en RAM, il reste 25574 
octets disponibles ! On doit donc pouvoir dépasser les 200 fiches ini¬ 
tialement prévues. Toutefois, il est plus pratique de fractionner en 
fichiers de tailles raisonnables. 

Pour savoir ce qui vous reste, tapez "F" au menu principal, puis PRINT 
FRE (" "), et enfin GOTO 1000 pour revenir au programme. 


1- Mr DUPONT Jacques:IS rue AMPERE La VIBERIE 47123 St MARTIN «Secteur 12 

2- Mlle HEVRARD Renée:B Allée des LILAS 66234 MONTLOUIS «Secteur 15 

3- Mr,Mme GALVIN Paul:Vilia "LES CHENES" Lotissement LE BOIS 77853 TRAMIENS 
«Secteur 8 

4- DUCHNOCK SARL:Service du Personnel 12-56 Bd MA6ENTA 21897 SAINT FAISANT 
«Secteur 7 

Mr DUPONT Jacques 


Mlle HEVRARD Renée 


15 rue AMPERE 


B Allée des LILAS 


La VIGERIE 




47123 St MARTIN 


66234 MONTLOUIS 


12 
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Mr,Mme GALVIN Paul 


DUCHNOCK SARL 


Villa "LES CHENES" 


Service du Personnel 


Lotissement LE BOIS 


12-56 Bd MAGENTA 


77853 TRAMIENS 


21897 SAINT FAISANT 


8 


7 
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10 'LABEL-MATIC - Amstrad - M.A. 19B5 

100 MODE OîBORDER 16:INK O.lîINK 1.24!PAPER lIsCLS 

110 LOCATE 1.7IPEN 12:PRINT "L A B E L-M A T I C" 

120 LOCATE 1,13!PEN 4:PRINT "Editeur d'Etiauettes 
130 LOCATE 2,21;PEN OsPRINT "M.Achambault-1985“ 

140 FOR 1=1 TO 3000!NEXT 

200 MODE liBORDER 2:PAPER OîPEN lîCLS 

210 DIM AD$(200,5):DEFINÎ A-2 

300 BOSUB 51000 

1000 'MENU PRINCIPAL 

1010 CLSîINK 0,1:INK 1,24 

1020 LOCATE 17,2!PEN 3{PRINT “M E N U"!PEN 2iL0CATE 29,2:PRINT NF;"Fiches 
":PEN 1 

1030 LOCATE 6,4;PRINT “N = Nouveau Fichier" 

1040 LOCATE é,6:PRINT "C = Charoement-lecture d'un Fichier" 

1050 LOCATE 6,8!PRINT "S = Suite d'un Fichier chargé 
1060 LOCATE è.lOiPRINT "H = ModiFication du Fichier" 

1070 LOCATE 6,12!PRINT "E = Enregistrement sur cassette" 

1080 LOCATE 6,14!PRINT "V = Visionner ou rechercher" 

1090 LOCATE 6,16;PRINT "L = impression en LABELS" 

1100 LOCATE è.lBîPRINT "6 = impression GLOBALEIen liones)" 

1105 LOCATE 6,20iPRINT "T = TRI du Fichier" 

1110 LOCATE 6,22!PRINT "F = Fin" 

1150 TE)(f="NCSMEVLGTF"îGOSUB 50000 

1160 ON K GOTO 2000,3000.4000,5000.6000.7000,8000.9000,12000.1500 
1170 GOTO 1000 
1500 'FINAL 

1510 CLSiLOCATE 10.12:PRINT "VOUS POUVEZ ETEINDRE."rPRINTiPRINT 
1520 END 

2000 ■ NOUVEAU FICHIER 
2010 CLS 

2020 LOCATE 6,4!PRINT "CREATION D'UN NOUVEAU FICHIER:" 

2030 LOCATE 12,7:PRINT "( 200 Fiches maxi )" 

2040 LOCATE 3,12:PRINT "Nous eFFa\ons-le Fichier en MFmoire." 

2050 LOCATE 15,14:PRINT "D'ACCORD ?" 

2060 T£)($="ON"}GQSUB 50000 
2070 IF K=2 THEN 1000 
2080 N=1;NF=0:G0SUB 10000 
2090 NF=N:BOTO 1000 
3000 ‘ CHARGEMENT FICHIER 

3010 CLS.-LOCATE 3,3:PRINT "LECTURE D'UN FICHIER SUR CASSETTE;" 

3020 LOCATE 16,10;PRINT "D'ACCORD ?" 
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3030 TEXI=“0N“!G0SUB 50000 
3040 IF K=2 THEN 1000 

3050 CLSsLOCATE 12.5:LINE INPUT “NOM DU FICHIER; “.FICHI 
3060 LOCATE 3,8:PRINT "Dis que la cassette est positionn{e“ 

3070 LOCATE 11,10;PRINT "Pressez une Touche." 

3080 HHILE INKEYI="":WEND 
3090 OPENIN FICH$ 

3100 INPUT #9.NF,FICHi!F0R 1=1 TO NF;FOR J=0 TO 5;INPUT i9.ADI(I.J);NEXT! 
NEXT 

3110 CLOSEIN 

3120 LOCATE 12.15:PRINT "Il-v-a"înf!"Fiches." 

3130 FOR 1=1 TO 2500;NEXT 
3140 GOTO 1000 
4000 'SUITE DE SAISIE 
4010 CLS 

4020 LOCATE 2,4:PRINT "SUITE DE SAISIE DU FICHIER EN MEMOIRE." 

4030 LOCATE 16,10:PRINT "D'ACCORD ?";TEX$="ON";GOSUB 50000 

4040 IF K=2 THEN 1000 

4050 N=NF+1:B0SUB 10000;NF=N 

4060 GOTO 1000 

5000 'MODIFICATION 

5010 CLS 

5020 LOCATE 10,5;PRINT "MODIFICATION DE FICHE;" 

5030 LOCATE 12,11:PRINT "( Pour FIN -> 0 )" 

5040 LOCATE 12,9;INPUT “QUEL NUMERO ?".NR$ 

5050 IF NR$="0" THEN 1000 

5060 NR=VAL(NR$);IF NR=0 OR NR>NF THEN PRINT CHR$(7);G0T0 5040 
5070 N=NR;GOSUB 10000;GOTO 5000 
6000 'ENREGISTREMENT 

6010 CLS;LOCATE 7,5;PRINT "ENREGISTREMENT SUR CASSETTE;" 

6020 LOCATE 16,10;PRINT "D'ACCORD ?";TEXI="ON";GOSUB 50000 
6030 IF K=2 THEN 1000 

6040 LOCATE 1,24;PRINT CHRf(18);LOCATE 3,10;PRINT "Prlparez une Cassette 
vierge,avec" 

6050 LOCATE 3,12;PRINT "amorce avancle." 

6070 LOCATE 12,15;LINE INPUT"NOM DU FICHIER; ",FICHI 
6080 SPEED WRITE hOPENOUT FICHI 

6090 WRITE ♦9,NF,FICHI;F0R 1=1 TO NF;FOR J=0 TO 5;WRITE #9.ADIII,J);NEXT; 
NEXT 

6100 CLDSEOUT 

6110 GOTO 1000 

7000 'VISIONNER,RECHERCHER 
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7010 CLS;L0CATE 12,4:PRINT “VISION ou RECHERCHEî" 

7020 LOCATE 6,8;PRINT “T = TOUS,depuis le d{but.“ 

7030 LOCATE 6,10:PRINT “N = Nuilro." 

7035 LOCATE 6,12:PRINT “R = Recherche d'un Now" 

7040 LOCATE 6.14:PRINT "F = FIN." 

7050 TE)($="TNRF"!60SUB 50000 
7060 ON K' GOTO 7100.7200,7300,7500 
7100 N=l;BOSUB IlOÛOîGOTO 7000 
7200 LOCATE 12,15:INPUT "QUEL NUMERO ?",NR$ 

7210 NR=VAL(NR$);IF NR=0 OR NR>NF THEN PRINT CHR${7);GOTO 7200 

7220 N=NR:GOSUB 11000;GOTO 7000 

7300 LOCATE 12,17!LINE INPUT "NOM cherché:".NM$ 

7310 FOR N=1 TO NF 

7320 IF INSTR(3,ADI(N,0),NMI)>0 THEN GOSUB 11000 
7330 NEH 
7500 GOTO 1000 

BOOO ' IMPRESSION 2 LABELS / 80 col. 

8010 CLS;LOCATE S.SiPRINT "IMPRESSION DES ETIQUETTES:";LOCATE IB.lliPRINT 
"D'ACCORD ?" 

8020 TE)[$="ON";GOSUB 50000:IF K=2 THEN 1000 

8030 CLS;LOCATE 7,5;PRINT "Deux Etiquettes par Ranole." 

8040 LOCATE 12,8:INPUT "NUMERO DEPART: ",NDI;ND=VAL(ND$); IF ND=0 OR ND>=N 

F THEN PRINT CHR$(7):G0T0 8040 

8050 LOCATE 14,12:PRINT "( D pour dernier )" 

8060 LOCATE 13,10:INPUT "NUMERO FINAL; ",NA$;IF UPPER$(NAI)=“D" THEN NA=N 
F;GOTO 8080 

8070 NA=VAL<NAI);IF NA<=NO OR NA>NF THEN 8060 

8080 LOCATE I0,17;PRINT "VIritiez ri(Rprlmante,":LOCATE 9,19;PRINT "puis 

pressez une Touche." 

8090 WHILE INKEyi="":WEND 
8100 PRINT #B,CHRII27)"R“CHR$(1); 

8120 FOR I=ND TO NA STEP 2 

8130 PRINT ll8,SPC((37-LEN(AD$(I,0)))/2);AD$(I,0)|SPC((43-LEN(AD4(I,0)))/2 
);SPC((40-LEN{AD$(I+1,0)))/2);ADI(I+1,0) 

8140 PRINT #8,SPC((37-LEN(ADI(I,l)))/2);AD$(I,l);SPC((43-LEN(AD$(I.l)))/2 
);SPC((40-LEN(AD$(I+l,l)))/2);AD$(lVl,l) 

8150 PRINT #B,SPC((37-LEN(AD4(I,2)/)/2);AD4(I.2)!SPC({43-LEN(AD$(I,2)))/2 
);SPC{(40-LEN(ADI(I+1,2)))/2);AD$(IM,2) 

8160 PRINT I8,SPC((36-LEN(AD$(I,3))-LEN(AD$(I,4)))/2)!AD$(I,3);" "lADKI. 
4);SPC((42-LEN(AD$(I,3))-LEN(AD$(I,4)))/2);SPC((41-LEN(AD4(I+1.3))-LEN(AD 
l(I+l,4)))/2);AD$(I+l,3);* "!AD${I+1,4) 
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8170 PRINT #8,SPC(17)!AD$(I,5);SPCI42l!AD$(I+1.5) 

8180 FOR J=1 TO 4;PRINT #8!NEXT 

8190 NEXT 

8200 GOTO 1000 

9000 ' IMPRESSION GLOBALE 

9010 CLSîLOCATE 12,5;PRINT "IMPRESSION GLOBALE;" 

9020 LOCATE 12,7;PRINT "( ligne § ligne )"!LOCATE 16,lliPRINT "D'ACCORD ? 

Il 

9030 TEXi="ON“;GOSUB 50000:IF K=2 THEN 1000 

9040 CLS:LOCATE 10,5:PRINT "Prlparez riinprifflânte,";LOCATE 9.10;PRINT "pu 
is pressez une Touche." 

9050 WHILE INKEY$="":WEND 

9060 PRINT iB,CHRI(27)"R''CHRI(l);SPC({80-LENIFICHin/2);FICH$ 

9070 PRINT IBrFOR 1=1 TO NF 

9090 PRINT j»8,USING "l#i";I;:PRINTI8,"-";AD$(I,0);"!"iAD$(M)|" ";AD$(I. 
2);" ";AD$(I,3);" ";AD$(I,4)i" ♦Secteur "îADI(I. 5);NEXT 
9100 PRINT il8,STRIN6$(7B," ") 

■JlIO GOTO 1000 

10000 ‘ SAISIE 

10010 CLSîINK 0.13;INK 1,0 

10020 LOCATE 10.2:PRINT “SAISIE FICHE NUMERO";!! 

10030 LOCATE 13,5:PRINT STRING$(22,CHR$(144));CHRI(151; 

10040 LOCATE 8,5;LINE INPUT "NOM; ".ADKN.O) 

10050 IF LEN(AD$(N.0))>22 THEN ADI(N,0)=LEFTI(AD$(N,0).22):PRINT CHR$(7) 
10060 LOCATE 13,7;PRINT STRING$(22.CHR$(144));CHRI(151) 

10070 LOCATE 2,7;LINE INPUT "ADRESSE 1; “.ADKN.D 

10080 IF LEN(AD$(N,1))>22 THEN AD$(N,1)=LEFT$(AD$(N,1),22):PRINT CHR$(7) 

10090 LOCATE 13,9;PRINT STRING$(22,CHfi$(144));CHRI(151) 

10100 LOCATE 2,9:LINE INPUT "ADRESSE 2: ",AD$(N,2) 

10110 IF LEN(ADI(N,2))>22 THEN ADI(N,2)=LEFT$(AD$(N,2),22);PRINT CHR${7) 
10120 LOCATE 13,11;PRINT STRING$(5,CHR$(144));CHRI(151) 

10130 LOCATE 2,11:INPUT "CODE POST; ",A0$(N,3) 

10140 LOCATE 13,13;PRINT STRINGI(16,CHR$(144));CHR$(151) 

10150 LOCATE 6,13;LINE INPUT "VILLE; ",AD$(N,4) 

10160 IF LEN(AD$(N,4))>16 THEN AD$(N,4)=LEFT$(AD$(N,4),16):PRINT CHR$(7) 
10170 LOCATE 13,15;PRINT STRIN6l(3,CHfi$(144));CHRf(151) 

10180 LOCATE 4,15;INPUT "SECTEUR: ",AD$(N,5) 

10190 LOCATE 2,19;PRINT "SUITE (S) , ERREUR (E) . FIN (F) ?" 

10200 TEX$="SEF";GOSUB 50000 
10210 IF K=1 THEN N=N+l!GOTO 10000 
10220 IF K=2 THEN 10000 
10230 RETURN 
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11000 'AFFICHABE 

11010 CLSiINK 0,13:INK 1,0 

11020 LOCATE ]0.2:PRINT "VISION FICHE NyHERO";N 

11030 LOCATE S.OîPRINT "NOM; ";ADJ(N,0) 

11040 LOCATE 2,7;PRINT "ADRESSE 1: ":AD$iN.l) 

11050 LOCATE 2.9;PRINT "ADRESSE 2; '•;ADI(N.2) 

11060 LOCATE 2.11:PRINT "CODE POSÎ: “;AD$(N,3) 

11070 LOCATE 6,l3iPRINT "VILLE: ";AD$(N,4) 

llOBO LOCATE 4.15;PRINT "SECTEUR; "îADKN.S) 

11090 LOCATE 8.19;PRINT "Pr{c)dent . Suivant , Fin" 

11100 TEU="PSF":GOS)JB 50000:ON K GOTO 11200,11300,11400 
11200 N=N-1;IF N=0 THEN PRINT CHR$(7):N=1 
11210 GOTO 11010 

11300 N=N+l!lF N>NF THEN PRINT CHR$(7):N=NF 
11310 GOTO 11010 
11400 RETURN 
12000 'TRI 

12010 CLS:LOCATE 13,4;PfiINT "TRI DU FICHIER;";LOCATE 16,Il;PRINT "D'ACCOR 
D ?";TEU="ON";GOSUB 50000;IF K=2 THEN 1000 

12020 CLS;LOCATE 13,4;PRINT "CRITERE DU TRI;";LOCATE 9.8:PRINT "N = NOM" 
12030 LOCATE 9.10:PRINT "A = ADRESSE 1*;LDCATE 9,12;PRINT "L = Lieu-dit ( 
adresse 2?";L0CATE 9,14:PRINT "C = Code postal" 

12040 LOCATE 9.16;PRINT "V = VILLE";LOCATE 9,18;PRINT "S = SECTEUR" 

12050 TE)($="NALCVS":GOSUB 50000;T=K-1;LOCATE 16.21;PRINT "Patience,.." 

12060 F=0;FDR J=1 TO NF 

12070 IF ADI(J,T)>=AD$(J-1,T) THEN 12090 

12080 FOR R=0 TO 5:AD$(0.R)=AD$(J.R);AD$(J.R)=AD$(J-1.RJ;AD$(J-1.R)=AD$(0 

.R);NEn;F=l 

12090 NEXT 

12100 IF F=1 THEN 12060 
12110 GOTO 1000 
50000 'REPONSE A UN MENU 
50010 LT=LEN(TEX$):R$="" 

50020 LOCATE 15-LT.24;PRINT "RXoonse ("; 

50030 FOR 1=1 TO LT-1 

50040 PRINT MIDI(TEX$,I,1)5","î:N£)(T 

50050 PRINT RIGHT$(TEX$,1);")";CHRI(154);CHR$(243);CHR$(207) 

50060 TEX$=UPPER$(TEXI) 

50070 WHILE R$="":R$=INKEY$:WEND 
50080 RI=UPPER$(R$):K=INBTR(TEXI,RI) 

50090 IF KrO THEN R$="":PRINT CHR$(7);;B0T0 50070 
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50100 RETURN 

51000 ' AZERTY ACCENTUE 

51010 SYMBOL AFTER 7 

51020 SYMBOL 64,96,48,120,12,124.204,118.0 
51030 SYMBOL 91,0,56.108,56,0,0,0,0 
51040 SYMBOL 92,0,0,60,102,96,102,60,24 
51050 SYMBOL 93.60.96,60.102,60,6,60.0 
51060 SYMBOL 123,12,24.60,102.126,96.60.0 
51070 SYMBOL 124,48.24,102.102.102.102.62.0 
51080 SYMBOL 125,48,24.60.102,126.96.60.0 
51100 RETURN 
65535 'FIN DE LISTING 









LA MÉMOIRE D'ÉCRAIM 


Michel ARCHAMBAULT 


L es notions exposées dans cet article ne sont pas du tout indispen¬ 
sables pour devenir un bon progammeur en Basic ; elles permet¬ 
tent d'aller plus loin en triturant la zone mémoire de l'écran par des 
PEEK ou des POKE. Pour faire quoi ? 

Tout d'abord faire des programmes de "HARD COPY" qui exécutent 
sur imprimante une sorte de photocopie de l'écran en cours, surtout 
utile pour les graphismes (vous pourrez utiliser ces programmes même 
si vous ne comprenez pas leurs fonctionnements). Avec ces notions, 
et de la patience, vous pourrez aussi créer des effets colorés inacces¬ 
sibles par les seules fonctions Basic. 


GENERALITES SUR LA MEMOIRE 

Le CPC 464, comme la plupart des micro-ordinateurs de moins de 
20 000 FF, utilise un microprocesseur "8 bits" (un octet). Pour aller 
chercher un octet en mémoire, il faut que ce dernier ait une adresse. 
Un octet peut prendre 256 valeurs possibles (256 = 2®). Pour les adres¬ 
ses, disons un octet pour les "colonnes" et un octet pour les "lignes" 
d'un "tableau d'adresses", donc 256 x 256 = 65536 "cases mémoire", 
qu'on numérote de 0 à 65535. C'est ce qu'on appelle 64 k-octets car 
le "kilo-octet" vaut en réalité 1024 octets... Donc 64 k-o est le maxi¬ 
mum pour un micro 8 bits. 

Il faut les partager entre la ROM (le Basic résident) et la RAM (program¬ 
mes -I- variables en cours + les points lumineux envoyés à l'écran). 
Avec un Basic de 32 k-o, il ne resterait que 32 k-o pour la RAM, d'où 
vingt et quelques kilo-oktets disponibles pour programmes plus fichiers, 
c'est ce qui se passe avec les MSX et bien d'autres. Nous, nous avons 
32 k-o de Basic, 43 k-o disponibles + 16 k-o réservés à l'écran ! La 
raison de ce "miracle" est que l'AMSTRAD "recharge et décharge" 
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la portion de la ROM dont il a besoin (c'est une vue d'esprit). De ce 
fait, une large partie de la RAM est plutôt "mouvante", ce qui va don¬ 
ner bien du plaisir aux amateurs de PEEK et de POKE... 

La partie mémoire écran occupe une zone fixe, de 49152 à 65487, 
mais le fait que l'on puisse mélanger texte et graphisme, et ce en trois 
MODES, fait que sa structure est d'une extrême complexité inouie 
(même principe que sur les APPLE II, mais en pire). C'est ce qui expli¬ 
que que l'affichage des caractères est assez lent, exemple, quand on 
fait LIST sur un long programme. 

Dans le manuel, les adresses sont indiquées en hexadécimal (préfixe 
& et quatre caractères). Il est pratique de savoir faire les conversions 
hexadécimal-décimal dans les deux sens (Note : le préfixe hexadéci¬ 
mal ne signifie pas "six" mais "seize"). 


LES CONVERSIONS HEXA/DECIMAL/BINAIRE 

En binaire, on a deux symboles 1 et 0 ; en décimal, on a dix symboles 
0 à 9 ; en hexa, on en a seize, 0 à 9 -f- A, B, C, D, E et F 
(&F=15;&A=10). 

On représente la valeur d'un octet par deux symboles hexa, ainsi 
&FA = (256 X 15) -H 10 = 250. Il suffit de taper PRINT &FA et 250 appa¬ 
raît à l'écran. De même, &FF = 255, c'est bien le maximum pour un 
octet. 

Une adresse tient sur deux octets, exemple &AFC8. Vous ne pouvez 
pas faire PRINT &AFC8 car l'AMSTRAD ne sait pas faire la conversion 
sur plus d'un octet, vous êtes obligé de décomposer : 

PRINT &AF*256-^&C8 

et la réponse apparaît : 45000. 

L'opération inverse est beaucoup plus facile : 

PRINT HEX$(45000) 

l'écran répond AFC8 (le & est sous-entendu). 

Pour traduire une longue suite de valeurs hexa en décimal, vous gagne¬ 
rez du temps en utilisant ce très court programme : 

10 ' CONVERSION HEXA --> DECIHAL 
20 INPUT 

30 HI=RIGHT$('’000Û''+H$,4) 

40 GI="î(''+LEFU(HI,2):D$="ît"+RIGHU(H$.2) 

50 PRINT VAL(6$)*256*VAL(D$) 

60 PRINT:GOTO 20 
70 END 
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Passons à la représentation binaire d'un nombre. Tapez, par exemple . 
PRINT BIN${45956), vous obtenez une suite de 16 bits 1 et 0. Essayez 
maintenant PRINT BIN$(3), vous obtenez "1 " (c'est une chaîne) ; avec 
PRINT BIN${3,16), vous avez 14 zéros suivis de "11". 

Gare à l'opération inverse par &X, elle traduit cette "image binaire" 
en un nombre dit entier, c'est-à-dire compris entre - 327869 et 
-1-32767 ! Un zéro suivi de quinze 1 donne 32767, tandis que 1 suivi 
de quinze zéros donne —32768. 

Heureusement, vous n'avez pas à vous en préoccuper car dans la pra¬ 
tique les seules images binaires qui nous intéressent sont sur un octet, 
donc de 1 à 255. 


LE PLAN MEMOIRE DE L'ECRAN 

Nous y voilà ! 

Deux cent lignes horizontales de 80 octets chacune. Dans une ligne, 
les numéros d'octets se suivent de gauche à droite. Prenons le cas le 
plus simple, celui du MODE 2 : chaque bit représente un "pixel" ou 
point à l'écran, ainsi 255 fait un tiret continu (huit bits 1). La ligne en 
haut de l'écran va de 491 52 à 49231, soit 80 x 8 = 640 points (ce qui 
explique qu'en coordonnées graphiques l'échelle horizontale aille de 1 
à 640). 

Hélas, l'octet suivant, le 49232, n'est pas au départ de la deuxieme 
ligne mais huit lignes plus bas ! Et ainsi de suite au pas de 8 lignes. 
Après un premier "passage" de 25 lignes espacées de 8, commence 
le deuxième passage sur les lignes du dessous. Pour tout comprendre, 
essayez ceci : 

100 ' BALAYABE DE L'ECRAN 
110 MODE 2 

120 EOR A=49152 -0 65487 
130 POKE A.3 
140 NEXT 
150 END 

Un joli store vénitien ! 

Les figures 1 et 2 vous donnent le plan des adresses d'écran. Vous 
constatez qu'entre deux "tirets" (deux octets) situés à l'écran, l'un en- 
dessous de l'autre, il y a un écart de 2048 octets (= 2k-octets), 
qu'entre deux lignes d'un même "passage" (donc espacées de 8 lignes 
d'écran), il y a un écart de 14336 octets. 

A présent, modifiez la ligne 110 en mettant MODE 1. Surprise ! Les 
traits sont rouges ( = PEN 3). En ligne 110, mettez MODE O : les traits 
clignotent en rose/bleu ciel ( = PEN 15). Nous abordons alors le code 
des couleurs en fonction du MODE. 
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Fi gure I 
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65408 
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Triit 

49152 

49153 

49154 

1 

1 

51200 

51201 

— 

2 


53248 

_ - _ - 

. _ _ _ 
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55298 

_ _ . _ 

_ - . - 
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57344 

_ _ . _ 

_ . . _ 
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59392 

_ - . _ 

_ ■ _ _ 
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51440 

— 

— 

7 


63488 

_ _ _ _ 

_ _ _ _ 
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49232 

49233 

— 

1 

2 

51280 

- - - - 

- - - - 
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LE CODAGE DES COULEURS 

En MODE 2 , rien de plus simple : comme il n'y a que deux couleurs 
possibles, un bit 1 fait un pixel PEN, un.bit 0 un pixel PAPER (Pixel est 
la contraction anglaise de PICTURAL ELEMENT). 

Lancez ce programme qui va dessiner en 0 et 1 les images binaires des 
quatre premiers caractères sur un écran en MODE 2. 


200 ' IMA6E BINAIRE D'UN CARACTERE 
210 «ODE 2 

220 CLSsPRINT "aVB/" 

230 FOR AM9152 TO 63491 STEP 2048 
240 FOR N=0 TO 3 
250 CB=PEEK(A+N) 

260 PRINT BINKCB.B);*."; 

270 NEKTrPRINT CHRi(13) 

280 NEXT 
290 END 
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Le résultat est spectaculaire. On y retrouve les compositions illustrées 
dans le manuel AMSTRAD page A3.2 et suivantes. 

A présent, modifions la ligne 210 afin d'avoir MODE 1 (ou faites 
MODE 1 :RUN 220). Oh ! Que c'est vilain ! Sur chaque "pavé", on n'a 
qu'une moitié de chaque caractère. Il faudrait accoller les moitiés gau¬ 
ches des pavés pour reconstituer le texte. Les moitiés droites des pavés 
(ou des octets) ne comportent que des 0. Ces zéros constituent en fait 
le code couleur de PEN (PEN 1 en ce cas) : apparions - les gauche 
+ droite, on a '01 " quand il y a quelque chose à tracer, or &X01 = 1 
(PEN 1). 

Tapons PEN 2 et, toujours en MODE 1, faisons RUN 220 : les 1 sont 
à droite et les zéros à gauche, &X10 = 2 (PEN 2). 

Tapons PEN 3 et même manœuvre. Dans chaque pavé, le demi carac¬ 
tère est répété à gauche et à droite, or &X11=3. 

Puisque dans chaque octet on associe un bit de la moitié droite à un 
de la moitié gauche, il n'y a que quatre combinaisons possibles : 

" 00 " ( = 0 ) ; " 01 " ( = 1 ) 

"10" ( = 2) et "11" ( = 3) 

C'est pourquoi on n'a que quatre couleurs en MODE 1. 

Et que se passe-t-il sur l'écran vidéo ? Sur chaque image binaire d'un 
octet (le "tiret"), chaque bit 1 est doublé, et dans la couleur du PEN. 
Un caractère occupe donc deux pavés, et comme il y a 80 octets par 
ligne, cela fait bien 40 caractères par ligne d'écran. 

En MODE 0, c'est le même principe, mais en divisant par deux, un quart 
de caractère par pavé. Pour apparier les bits, on a alors 16 combinaisons 
possibles (les seize couleurs). A l'écran, chaque bit 1 est quadruplé dans 
la même couleur. 


LE HARD COPY D'ECRAN 

Il faut que votre imprimante possède l'instruction "BIT IMAGE", c'est 
le cas de la plupart des imprimantes "à aiguilles" ou "matricielles". 
En usage normal, une imprimante traduit l'octet reçu en dessinant le 
caractère ayant ce code ASCII, ici c'est beaucoup plus simpliste. Les 
huit aiguilles de la tête d'impression illustrent l'image binaire de cet 
octet. Ces dessins de bits vont être des "barres" verticales, or sur 
l'écran ils sont horizontaux ! Il suffit de tourner notre graphisme d'un 
quart de tour sur le papier. L'imprimante commencera par le bord verti¬ 
cal gauche en terminant par le bord droit de l'écran ; le bas de l'écran 
sera donc le long de la marge gauche du papier. Ce n'est pas gênant. 
L'auteur utilise une EPSON RX80 (les modèles FX ont les mêmes 
codes). Si la vôtre est d'une autre marque, il va falloir modifier les libel¬ 
lés des codes de commande ; nous légenderons les nôtres afin que vous 
puissiez les traduire pour votre machine. Si vous trouvez les mêmes. 
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ne soyez pas surpris car une bonne quinzaine de "marques" sont des 
EPSON rebaptisées. 

Il y a deux programmes différents, pour le MODE 2 et le MODE 1 (la 
version MODE 0 ne satisfait pas l'auteur). 

Il s'agit en fait de sous-programmes utilitaires 

55000 'HARD COPY AMSTRAD MODE 1 
550f0 PRINT 18 
55020 DIM Z(200) 

55030 PRINT IIB,CHRI(27);CHR$(64)îCHR$(27)|*3'';CHRI(24); 

55040 PRINT IIB,CHR$(13) 

55050 PRINT iB,CHR$(15); 

55060 FOR C0L=49152 TO 49231 STEP 2!1=0 
55070 FOR LI=C0L TO COL+1920 STEP BO 
55080 FOR T=LI TO LI+14336 STEP 204B 

55090 I=I+l!ZI=LEFT$(BIN$(PEEK(T),8),4)+ LEFTI(BINI(P£EK(T+1).8) ,4) 

55100 Z(I)=VAL{"*tX“+Z$)!lF 1=200 THEN GOSUB 55130 
55110 NEXT!NE)(T;PRINT i8,CHR$(13 )iNEXT 
55120 RETURN 

55130 PRINT i8,CHRI{27);''K";CHR$(100);CHR${0)î 

55140 FOR J=200 TO 101 STEP -1 

55150 PRINT IB,CHR$(ZIJ))j!NEXT 

55160 PRINT #8.CHR$(27);'’K*;CHR$(100);CHRI(0); 

55170 FOR J=100 TO 1 STEP -1 
55180 PRINT #8,CHR$(Z(J));!NEXT 
55190 RETURN 

Temps d'exécution 4'15". Format 112x84 mm. 


56000 ’HARD COPY MODE 2 AMSTRAD 
56010 PRINT #8 
56020 DIM Z(200) 

56030 PRINT IB.CHRI(27)5CHR${64);CHR$(27);''A“5CHR$(8)! 
56040 PRINT I8.CHR$(I3) 

56050 PRINT #8,CHR$(15); 

56060 FOR C0L=49152 TO 49231:1=0 
56070 FOR LI=C0L TO COL+1920 STEP 80 
56080 FOR T=LI TO LI+14336 STEP 2048’ 

56090 I=I+1:Z(I)=PEEK(T):IF 1=200 THEN GOSUB 56120 
56100 NEXT:NEXT:PRINT I8,CHR$I13):NEXT 
56110 RETURN 
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56120 PRINT ll8,CHR$(27);"K''!CHRI(I00);CHR$(0)i 
56130 FOR J=200 TO 151 STEP -l!p=2(J) 

56140 PRINT ll0,CHR$(P){CHRf(O);:NEn 
56150 PRINT «8,CHRI(27)!"K"!CHRI(100);CHR$(0); 

56160 FOR J=150 TO lÔI STEP -1:P=Z(J) 

56P0 PRINT IB.CHR${P):CHR$IO);:NEn 
56180 PRINT t8,CHR$(27)!’'K'‘:CHR$(100);CHRl(0)î 
56100 POR J=100 TO 51 STEP -1:P=Z(J) 

56200 PRINT HB.CHRMPl ;CHRf (0) ; jNEH 
56210 PRINT )ie.CHRI{27):“K"!CHP${100):CHRf..û)! 

56220 FOR J=50 TO 1 STEP -1:P=Z(JJ 
56230 PRINT #8.CHRI(P)!CHR${0);:NE)(T 
56240 RETijRN 

Temps d'exécution 7'30". Format 225 x 170 mm. 


LEGENDES DES CODES EPSON 

CHR$(27);CHR$(64) = vide le buffer (initialisation) 
CHR$(27);"3";CHR${24) = interlignes de 24/216 de pouce 
CHR$(27);"A";CHR$(8) = interlignes de 8/72 de pouce 
CHR$(15) = caractères condensés (17 par pouce) 

CHR${27);"K" = mode bit-image 

LE PRINCIPE 

On explore des bandes verticales de l'écran de largeur 1 octet. Ces 200 
octets sont mis en DIM Z puis ils sont retransmis à l'imprimante qui 
écrit donc une ligne. Passage à la colonne précédente et ainsi de suite. 
En jouant sur divers paramètres d'impression, nous sommes parvenus 
à restituer les proportions hauteur x largeur de l'écran (approximati¬ 
vement). En MODE O, nous ne sommes pas (encore) parvenus à obte¬ 
nir des dimensions d'image imprimées satisfaisantes, d'où l'absence 
de la version MODE O. 

Très important : en MODE 1, les inscriptions doivent être en PEN 1 ou 
en PEN 3 (pas en PEN 2) car nous ne prenons que la moitié gauche 
des images binaires (ligne 55090). 

Suite à un petit bug de la ROM de l'EPSON RX 80, nous n'envoyons 
en "bit image" que des suites de 50 ou 100 octets à la fois. 
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REMARQUE 


C'est aussi pour des raisons de proportions d'écran que les coordon¬ 
nées graphiques sont de 640x400 alors que logiquement ce serait 
640 X 200. 

CODAGE BINAIRE D'UN CARACTERE 

Vous voulez définir un caractère qui se trouve être un caractère exis¬ 
tant mais légèrement modifié. Vous trouvez fastidieux de redessiner 
sa grille 8x8 et de totaliser toutes ces lignes. Alors, utilisez ce pro¬ 
gramme qui vous fait instantanément tout ce travail. 

3Û0 ' CODABE BINAIRE D’UN CARACTERE 

310 INPUT "CARACTERE OU CODE ASCir'iC$;MODE 1 

320 IF VAL(C$)>32 THEN PRINT CHR$(VAL(CI))!5PC(2)îCliPRINTsBOTO 3^0 

330 PRINT C$iSPC(2):ASC{CI)!PRINT 

340 FOR A=49152 TO 63488 STEP 2048 

350 6I=LEFTI(BIN$(PEEK(A),8),4) 

360 DI=LEFT$(BIN$(PEEK(A+1),8),4) 

370 C$=GI+DI 

380 PRINT C$!SPC(2)iVALI"?(X"+CI) 

390 NEXT 

400 PRINTsGOTO 310 
410 END 


Tapez indifféremment le caractère, s'il existe, au clavier ou son code 
ASCII. L'écran vous soumet sa fiche signalétique complète, à savoir : 
Le caractère, son code ASCII, sa configuration binaire en "1" et "O" 
et les totaux de chaque ligne. Exemple avec X majuscule : Code ASCII 
88, codage 198, 108, 56, 56, 108, 198, 198, O. 

Faites un autre essai en tapant 251. 

Ce programme refuse certains signes de ponctuation tels que + - , 
. &. En ce cas entrez le code ASCII. 
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UN DÉSASSEMBLEUR 


Eddy DUTERTRE 


V oici pour les amoureux du langage machine un petit désassem- 
bleur écrit en Basic qui leur permettra, entre autres, de percer les 
mystères du CPC 464. Dès le lancement par RUN, un choix est 
demandé par l'ordinateur quant au type de zone où doit être lancé le 
désassembleur (RAM ou ROM). 

En effet, dans l'AMSTRAD, la ROM n'est pas accessible directement, 
elle se trouve en "OVERLAY" sur la RAM et, pour sélectionner l'une 
ou l'autre, une petite routine en langage machine est nécessaire. Cette 
sélection faite, il suffit ensuite de donner en hexadécimal l'adresse de 
lancement du désassembleur. 

Dans le bas de l'écran, sont données quelques indications sur les options 
disponibles. La plus à gauche, intitulée "SELECTION" donne l'état 
RAM/ROM choisi précédemment. Les autres indications constituent le 
mode d'emploi. On y trouve : 

ESPACE = Suite 

Le désassemblage se fait par page d'écran, et pour poursuivre quand 
ce dernier est plein, il suffit d'appuyer sur la touche "Espace". 

N = Nouvelle adresse 

Après avoir désassemblé une page, il peut être nécessaire de sauter 
à une autre adresse. Ceci se fait en appuyant sur la touche "N" afin 
de revenir au menu. 

l-lmprimante ON/OFF 

Si l'on possède une imprimante, il peut être utile de conserver quel¬ 
ques listes désassemblées. Ceci se fait par appui sur la touche "I" cons¬ 
tituant un interrupteur de marche-arrêt de l'imprimante. L'état est donné 
en permanence au bas de l'écran et au lancement du programme, l'im¬ 
primante est inhibée. Un appui sur "I" autorisera l'impression des pro¬ 
chaines lignes, un deuxième interdira, etc... 
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A = Arrêt 

Sortie du programme et réinitialisation de l'écran. 

(Les instructions sur IX et lY ne sont pas désassemblées). 


10 REM 


20 REM « -DESASSEHBLEUR- ♦* 
30 REM « ** 
40 REM ** û-DUTERTRE EDDY ♦♦ 
50 REM ** « 
60 REM ♦♦ . 25/02/1985 h 
70 REM #♦ ♦♦ 


80 REH **if««««f»***#««**«***««»««*««« 

90 DATA N0P,"2LD BC,“,"LD (BC),A",INC BC,INC B,DEC B,"1LD B,",RLCA,''E)( AF 
,AF'",''ADD HL,BC" 

100 DATA'LD A,(BC)",DEC BCjINC C,DEC C,MLD C/,RRCA/3DJNZ %’'2LD DE,"," 
LD (DE),A",INC DE 

110 DATA INC D,DEC D,-1LD D,",RLA,"3JR ",''ADD HL,DE","LD A,(DE)",DEC DE,i 
NC E,DEC E 

120 DATA"1LD E,",RRA,"3JR NZ,","2LD HL,","4LD ( ),HL“,INC HL,INC H,DEC 
H,"1LD H,",DAA 

130 DATA"3JR Z,“,"ADD HL,HL","7LD HL,( )",DEC HL,INC L,DEC L,"1LD L,", 
CPL,"3JR NC,","2LD SP," 

140 DATA"4LD ( ),A",INC SP,INC (HL),DEC (HL),'’1LD (HL).",SCF,"3JR C.", 
"ADD HL,SP","5LD A,( )",DEC SP 
150 DATA INC A,DEC A,"1LD A,",CCF 

160 DATA RET NZ,P0P BC,"2JP NZ,',"2JP ","2CALL NZ,",PUSH BC,"1ADD A,",RST 
0,RET 2,RET,"2JP Z,",,“2CALL Z,"/2CALL ","1ADC A,",RST B,RET NC,POP DE, 
"2JP NC,","60UT ,A" 

170 DATA-2CALL NC,*,PUSH DE."1SUB ",RST 16,RET C,EX1(,"2JP C,",''1IN A."."2 
CALL C,",INST/IX,*1SBC A,",RST 24,RET PO,POP HL,"2JP PO,","EX (SP),HL"."2 
CALL P0,",PUSH HL,"1 AND *,RST 32 

180 DATA RET PE,JP (HL),"2JP PE,","EX DE,HL“,"2CALL PE,",-,"1X0R ",RST 40 
,RET P,POP AF,"2JP P,",DI,"2CALL P,",PUSH AF,"10R ",RST 48,RET M,"LD SP,H 
L","2JP H,",El 

190 DATA "2CALL M,",INST/IY,'iCP “,RST 56 

200 DATA LDI,CPI,INI,0UTI,,,,,LDD,CPD,IND,0UTD,,,,,LOIR,CPIR,INIR,0TIR,,, 
,,LDDR,CPDR,INDR,0TDR 

210 DATA"IN B,(C)","0UT (C),B“,"SBC HL,BC",'4LD ( ),BC",NEB,RET N,IM 0 

,"LD I,A","IN C,(C)","0UT (C),C","ADC HL,BC",'7LD BC,( )",,RETI,,"LD R 
,A","IN D,(C)","0UT (C),D","SBC HL,DE","4LD ( ),DE" 

220 REM ne pas effacer cette ligne 
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230 DATA B,C,0,E,H,L,(HL),A,B,C,0,E,H,L,(HL),A 

240 DATA RLC,RRC,RL,RR,SLA,SRA,,SRL,BIT,RES,SET 

250 DATA^ADD A,‘‘/ADC A,","SUB ",'’SBC A,"/AND "."XOR "/'OR ","CP " 

260 DATAyF/<04,yB,î(C9/07,î(AB,î(FC.Î(3A,&Û0.î(0û.y2,îiÛE.&AB.Î{C9.î(û0,îtÛ0.î( 

CD,i60/BB,432,M7/AB,!(C9 

270 Î1EH0RY Î(9FFF; DIH RI(16),SI(11) 

280 RESTORE 230;Q=0 

290 FOR N=(i TO 15:READ R${N);NE)(T 

300 FOR N=0 TO lOiREAD SI(N;!NE)(T 

310 FOR N=i) TO 7:READ T$(N);NEXT 

320 FOR N4AB00 TO yBI6:READ AiPOKE N.AiNEXT 

330 MODE liWINDOW l.40.1.20:WIND0W 11,î,40,21.25Î0RÎGIN Û,64:DRAW 639,0.1 

340 ORISIN 0,46:DRAW 639,0,1:0RIGIN 144,0:DRAW 0,64,l;L0CA7Ell,1.2!PRINT# 
1,"SELECTION" 

350 LOCATE 11,19.2;PRINTI1/COMMANDES";LOCATE ll,ll,4:PRINT#l,"ESPACE=Sui 
te N=Noüv.adresse" 

360 LOCATE 11,il.SîPRINTIl,“I=I(!iprimante DN/“!CHR$(24);"0FF";CHR$(24) 

370 LOCATE ll,33.5:PRINTIl."A=Arret" 

380 CLSi PRINT"VOLlS 'VOULEZ DESASSEMBLER UNE ZONE DE;" 

390 PRINT;PRINT"1-RAM":PRINT"2-R0M";PRINT!PRINT"00TRE CHOIX ?" 

400 GI=INK£ü;GI=UPPER$(GI)!lF Gl="" OR (6$<>"1" AND 6$<>"2" AND GIO"!") 
THEN 400 

410 IF G$="I" THEN GOSUB 1340:60T0 400 

420 PRINT:PRINT:R=VAL(6$)!LQCATE ll,4,4;IF R=1 THEN PRINTII,"RAM" ELSE PR 
!NTI1,’'R0M" 

430 A=0:B$="";PRINT "ADRESSE DE DESASSEMBLAGE;...." 

440 FOR N=0 70 3 

450 AI=JNKEYI:âl=üPPERI(af)!lF Al="" THEN 450 
460 IF A$="r' THEN GOSUB 1340:6070 450 
470 IF A$>"9“ AND Al/'A" THEN 450 
480 IF AI>"F" OR Al<"0" THEN 450 
490 LOCATE 26+N,9;PRINT AI:BI=BI+Al!NEXT 
500 A=VAL("r+BI):IP A<0 THEN A=65536+A 
510 CLS;FOR N=1 TO 20 
520 PRINT UPPERKBI);" 

530 P=A;BOSUB 1290;CI=HEXI(D.2):GOSUB 670:60508 680 

540 LOCATE 27,N:F0R M=A TO A+I-1:P=M;G0SUB 1290;PRINT HEXI(D,2);" "::NEXT 

:PRINT 

550 A=A+I:IF A>65535 THEN A=0 
560 BI=HEX$(A,4):IF Q=0 THEN 580 

570 FOR H=1 TO 40:L0CATE M,N;CALL WB10;PRINTI8,CHRI(PEEK(^ABI7));:NEXT H 
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iPRINT#8 
580 NEXT N 

590 T$=INKEYl!T$=UPPER$(TI);IF THEN 590 
600 IF T$=" ” THEN B$=HEX$(A,4);GOTO 510 
610 IF T$="I“ THEN 60SUB 1340;60T0 590 
620 IF T$=''N'' THEN 380 
630 IF TI="A"THEN WINDOW l,40,I,25!CLSsEND 
640 GOTO 590 

650 DATA IM 1,"LD A,T,"IN E,(C)",''OUT (C),E"/ADC HL,DE"."7LD DE.( )" 
2,"LD A,R","IN H,(CI"/OUT (C),H","SBC HL,HL"/'4LD ( ),HL",,,.RR 

D,"IN L,(C)","OUT (C),L","ADC HL,HL","7LD DE,( )",,mRLD,,,"SBC HL,SP" 
660 DATA "4LD ( /,SP"mm/IN A,(C)"."DUT (C),Â","ADC HL,SP","7LD SP.( 

) " 

670 Y=VAL("!("+l1ID$(C$.l,I));2=VAL("r+HID$(C$.2,l)):RETURN 

680 IF Y>3 AND Y<B THEN 770 

690 IF D=203 THEN P=A+l!GOSUB 1290;GOTO 820 

700 IF D=237 THEN P=A+1:G0SUB 1290!GOTO 1060 

710 IF D=^DD THEN PRINT"INST/U :":60T0 1360 

720 IF D=«(FD THEN PRINT"INST/IY :"!GOTO 1360 

730 IF D>12? AND D<192 THEN 880 

740 IF D<64 THEN 890 

750 IF D>191 THEN 1040 

760 PRINT:I=1:RETURN 

770 IF Z=6 AND Y=7 THEN PRINT"HALT“!I=1;RETURN 

780 PRINT"LD •;:K=(Y-4)*2 

790 IF Z<8 THEN PRINT RKK);","; 

800 IF Z>7 THEN PRINT R$(K+1);","; 

810 PRINT RI(Z)!l=lîRETURN 
820 IF D>63 THEN 840 

830 K=INT(D/8);PRINT SKK);" "jîGOSUB OZOîPRINT R$(Z);I=2!RETURN 
840 k=INT(d/64)+7:PRINT silk); 

850 k=INT(d/8)-BîIF d>191 THEN k=k-16 
860 IF d)127 AND d<192 THEN k=k-8 

870 PRINT kî‘,"|!CI=HEXI{D,2)!G0SUB 670ÎPRINT r$(z)!i=2!RETURN 
880 k=d-12Bjw=INT(k/8):PRINT IKhIuGOSUB 670îPRINT r$( 2 ):i=l:RETURN 
890 p=INT(d/10) 

900 GOSUB 1170:F0R o=0 TO (d-p«10)iREAD elsNEXT q 
9I0 fl=MID$(el,l,l):IF f$>"9" THEN PRINT e$:îMîRETURN 
920 PRINT f1ID${el,2); 

930 IF T$="l" THEN P=A+l!GOSÜB 1290:PRINT HEX$(d,2)!i=2:RETURN 

940 IF F$="2"THEN P=A+2!B0SUB 129ÛIPRINT HEXI(D,2);!P=A+l!GaSUB 1290:PRIN 

T HEX$(D,2)!l=3!RETURN 
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950 IF f$<>“3" THEN 990 

960 P=A+lîG0SUB 1290SPRINT HEU(d,2)î" Cl 

970 IF d>127 THEN d=d-256 

980 w=a+2+d:bl=HE)($(w,4)!PRINT b$!'')''!i=2;RETURN 

990 IF THEN LOCATE 13,n!f$=''2"îG0T0 940 

1000 IF THEN LOCATE 15,n:f$=''2‘':G0T0 940 

1010 IF fl=''6'' THEN LOCATE 13,n!f$="l'':60T0 930 

1020 IF f$=-7'' THEN LOCATE 16,n!fl="2"!G0TD 940 

1030 PRINT:i=l!RETURN 

1040 p=INT((d-192)/20)+7 

1050 GOSUB llTOîFOR g=0 TO (d-192-(p-7)*20);READ e^îNEH oîGOTO 910 
1060 IF d<159 THEN 1090 
1070 RESTORE 200 

1080 FOR i=0 TO d-160:READ e$;NEXT!PRINT e$îi=2:RETURN 
1090 IF d>85 THEN 1120 
1100 RESTORE 210 

1110 FOR j=0 TO d-64:READ el!NEXT}T=A!A=A+li60SUB 910:A=T!i=i+l:RETURN 

1120 IF d>114 THEN 1150 

1130 RESTORE 650 

1140 d=d-22:B0T0 1110 

1150 RESTORE 660 

1160 d=d-51:G0T0 1110 

1170 ON p+1 GOTO 1180.1190.1200.1210.1220.1230.1240.1250,1260.1270,1280 

1180 RESTORE 90:RETURN 

1190 RESTORE lOOsRETURN 

1200 RESTORE IIOjRETURN 

1210 RESTORE 120SRETURN 

1220 RESTORE 130;RETURN 

1230 RESTORE 14û:RETURN 

1240 RESTORE 150:RETURN 

1250 RESTORE 160îRETURN 

1260 RESTDRE 170:RETÜRN 

1270 RESTORE 180:R£TURN 

1280 RESTORE 190;RETURN 

1290 IF R=I THEN D=PEEK(P)iRETURN 

1500 PH=INT(P/256)!PL=P>PH*256 

1310 POKE I(AB08,PL:P0KE Î(AB09,PH 

1320 CALL îcABOO 

1330 0=P£EK{«tABOE):RETURN 

1340 IF Q=0 THEN Q=l!L0CATEil,24,5;PRINTIl,CHR$(24)!''0N“îCHRI(24)|70FF"! 
RETURN 
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1350 Q=0!LOCATE#!,24,5.'PRINTIl, "ON/*;CHRI(24) ; "OFF";CHR$(24) sRETliRN 
1360 P=A+l!GOSUB 1290 

1370 IF D=9 OR D=&19 OR D=&29 OR 0=W9 OR 0=î(2B OR D4E3 OR M2Z OR D=Î(E 
9 OR D=&F9 OR D=iEl OR D=ïiE5 THEN I=2;RETURN 

1380 IF D=«(CB OR D436 OR D=*f22 OR 0=Sr2A OR D=&21 THEN I-4ÎRETURN 
1390 I=3îRETURN 


Exemple 

de desàsseiblaqe sur 

iipriiante 

0FC4 

PU3H RF 

F5 

0FC5 

PU3H HL 

E5 

SFCS 

LD fl,D 

7R 

0FC? 

CPL 

2F 

ÔFC8 

LD H,fl 

67 

0FC9 

LD 

7B 

0FCR 

GPL 

2F 

I3FCB 

LD L,fi 

6F 

0FCC 

INC HL 

23 

8FCD 

RDD-HL.BC • 

09 

0FCE 

INC HL 

23 

ÔFCF 

EX <3P>,HL 

E3 

8FD8 

XOR R 

RF 

QFDl 

SUB E 

93 

13FD2 

PUSH RF 

F5 

ÔFD:? 

CPLL ÔBR9 

CD h9 0E 

ÔFDb 

PUSH HL 

E5 

QF07 

LD R,B 

78 
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AMSLOG 



Stéphane CLOIREC 


C ^est au MIT que Seymour PAPERT a développé un langage évo¬ 
lué, simple d'emploi, offrant pourtant des possibilités importan¬ 
tes : le LOGO. 

Ce langage est surtout orienté vers le graphisme, et est très facile d'ac¬ 
cès car chaque instruction LOGO se concrétise dans le déplacement 
d'une "tortue" à l'écran. L'auteur a alors devant lui une image réelle 
de ce qu'il vient de créer, et élabore peu à peu son graphisme en s'iden¬ 
tifiant à la petite tortue qui avance, tourne, recule sous ses ordres. 
Le LOGO est en général très gourmand en mémoire ; c'est pourquoi 
il est encore assez peu répandu et utilisé. Il est pourtant particulière¬ 
ment recommandé pour l'apprentissage de l'informatique et de la pro¬ 
grammation de par sa simplicité. 

Ce programme est une version simplifiée de ce langage ; il permet uni¬ 
quement de faire du graphisme. Il est programmé exclusivement en 
Basic : la rapidité d'exécution s'en ressent évidemment, mais cela per¬ 
mettra à tous ceux qui veulent l'améliorer, le modifier, de le faire faci¬ 
lement. AMSLOG comporte deux modes ; 

— le premier est un mode direct : vous tapez votre instruction dans 
une fenêtre en bas d'écran, et l'interpréteur Basic l'exécute immédia¬ 
tement dans la fenêtre graphique. On rentre ainsi ses commandes une 
à une, et le résultat s'affiche au fur et à mesure ; 

— le second est le mode "programme" : vous rentrez les instructions 
que comporte votre programme les unes après les autres ; vous pou¬ 
vez ensuite le lister, le modifier ou l'exécuter. Les numéros de ligne s'af¬ 
fichant automatiquement, il n'est pas nécessaire de les taper. Par 
contre, il est indispensable de bien respecter la syntaxe des instruc¬ 
tions, notamment pour les espaces et les paramètres. 

Quelques spécifications : 

— capacité de programmation : 100 lignes, une instruction par ligne, 
— 20 labels utilisés pour les branchements et les sauts (label X), 
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— 10 variables indicées V(x) fde V(0) à V(9)]. 

Voici les commandes de l'éditeur : 

E : exécute le programme. 

L : liste les 20 premières lignes du programme. 

LX : liste à partir de la ligne X. 

I : insère une ligne en décalant la première ligne du listing à l'écran vers 
le bas. 

D : délète la'première ligne du listing à l'écran. 

G : permet de passer du mode programme au mode direct, et inverse¬ 
ment. 

H : donne la liste des instructions et leur syntaxe (Help). 

Q : quitte le programme. 

SAUVE : sauvegarde le programme LOGO sur cassette. 

CHARGE : charge un programme LOGO en mémoire. 

VAR V(x) : affiche la valeur de la variable V(x). 

Les Instructions utilisables sont les suivantes : 

AVANCE X : dessine à l'écran un segment de droite de x pixels. 
DIRECTION X : la direction courante devient x, x étant un angle en 
degrés. 

DROITE X : tourne à droite de x degrés (de même GAUCHE x tourne 
à gauche). 

ORIGINE xxx.xxx : positionne l'origine graphique en xxx.xxx (atten¬ 
tion, il est indispensable de taper les coordonnées en 3 chiffres, sépa¬ 
rées par un point. Exemple : ORIGINE 320.200 place le curseur graphi- 
q'ue en milieu d'écran). 

RECTANGLE xxx.xxx : dessine un rectangle dont les côtés mesurent 
XXX et XXX pixels (même remarque que pour ORIGINE). 

CERCLE X : trace un cercle de rayon x, et centre le dernier point tracé. 
EFFACE : efface l'écran. 

OUBLIER : efface le programme LOGO contenu en mémoire. 

SON : produit un BEEP bref. 

MODE X, ENCRE xx.xx, PAPIER x, STYLO x, BORD x : correspondent 
aux instructions AMSTRAD mode, ink, paper, pen, border (attention 
au mode employé pour le nombre de couleurs utilisables). 

AFFICHE EN xx.xx chaîne de caractères : affiche la chaîne de caractè¬ 
res à la position xx.xx. 

V(x) = n : donne à la variable V(x) la valeur n. 

CALCUL DE V(x) = V{x) -f- n et CALCUL de V(x) = V{x) — n : incrémen- 
tent ou décrémentent V(x) de la valeur n. 

LABEL X : positionne un label sur lequel vont s'effectuer les branche¬ 
ments et les sauts. 

VA AU LABEL x : saut inconditionnel au label X. 

SI V(x) = 0 VA AU LABEL n : teste si V(x) = 0, et si c'est exact, se rend 
au Label n. 

FIN : obligatoire en fin de programme.’ 
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REMARQUES 


— Toutes les instructions graphiques sont paramétrables à l'aide des 
variables V(x), 

— à l'origine? AMSLOG, se trouve en mode programme, 

— après un L ou un Lx, la ligne courante est la première du listing, 

— pour modifier une ligne x, il suffit donc de taper "Lx" puis la nou¬ 
velle ligne à la place, 

— si jamais le programme se "plante", on peut le redémarrer par un 
"GOTO 8000" sans perdre le programme LOGO en mémoire, 

— de même, il est possible à tout moment de passer du mode direct 
au mode programme et vice-versa, sans perte du programme LOGO 
en mémoire. 

Enfin, voici quelques exemples de programmes courts et simples, illus¬ 
trant les possibilités de l'AMSLOG, et qui vous serviront d'exemples 
pour l'apprentissage du langage. 

1 efface 

2 V(1) = 36 

3 Label 1 

4 avance 90 

5 droite 110 

6 calcul de V(1} = V(1)-1 

7 si V(1) = 0 va au Label 2 

8 va au Label 1 

9 Label 2 

10 son 

11 fin 

Exécutez-le, puis entraînez-vous à le modifier (à titre d'exemple, tapez 

"DROITE 50" au lieu de "DROITE 110"). 

• 

1 efface 

2 V(1) = 25 

3 Label 1 

4 rectangle 100.050 

5 droite 115 

1 efface 

2 V{1) = 36 

3 Label 1 

4 rectangle 100.050 

5 droite 110 

(La suite de ces deux programmes reste la même que celle du premier.) 
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2 ' 


♦♦♦ 

3 ' 

AHSL06 


4 ' *** 



5 ' ♦♦♦ 

PRESENTATION 


6 ' *** 


♦♦♦ 


7 ' 

8 ' 

9 ' 

10 BORDER OîINK 0,0 
15 CLEARjliODE IrRAD 

20 DIM PAL(14);F0R 1=0 TO HsREAD PALIDîINK I+I,PAL(I)jNEXT 
30 DATA 3,6,15,24,25,22,21,12,13,1,2,5,4.14,26 
40 HODE OîCLG OîPAPER 0:PEN 14 
50 0RI6IN 320,250 

60 FOR J=48 TO 108:I=J*PI/52!M0VE C0S(I)*220,SIN(I)*160-40!DRAW 0,0,J MOD 
13+1:NEXT 

70 FOR J=3 TO 23;F0R K=-110 TO 110 STEP 220îI=J^PI/26:H0VE COS(I)*100+K,S 
IN(I)»80-20!DRAW 0,Û,(J+((K=110)AND 4)-2) HOD 13+1;NEXT K.J 
80 LOCATE 8,2}PRINT"AHSLOG“iORIGrN 220,392!DRAWR 197,0iDRAHR 0,-32îDRAWR 
-197,0!DRAWR 0,32 

90 FOR K=1 TO lOîFOR J=1 TO 135FOR 1=1 TO 13 
' 100 INK I.PAL((J+I)MOD 13)!NEXT I,J.K 
110 LOCATE l,25sPRINT''Charaeinent en cours";RUN"ainsloql" 
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20 

' «»»«*«««« 
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AMSLOG 


40 




50 

' #♦* 



60 

' H* (c) 1985 

par Stéphane 

CLOIREC ♦♦♦ 

70 

' *** 




80 ' 

90 ' 

100 ■ 

110 DE6 

120 SYMBOL AFTER 165jSYMB 0L 166,ît6,«(B,&3C,!(66,&7E,ît60,î(3C!KEY 131,CHR$(16 
6 ) 
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130 GOSUB 2650 
140 GOSUB 2280 
150 coul=l 
160 D!^ iMOO) 

170 DIM 1(20) 

180 DIM vnO) 

IQfi GOTO ^30 
200 ' 

210 ■ 

220 ' 

230 co=l!d=0 

240 IP coMOO THEN 1790 

250 Cf =1 Hcc) 

260 IF LEPTI (ct,4)=''/DC(Je‘’ THEN PEN liPAPER OjMQDE VAKMIDf(cf. 6 )/!c 1 = 0 :z 3 
=320:2b=200:DRIGIN za.zbiGOTO 4‘JO 
270 IF LEPTf (cl,4)='’bord" THEN GOSUB 2010;60TO 4‘»0 
280 ÎF LEFTf (rî,5)=''encr0" THEN GOSUB 2070:GQT0 490 
290 IF LEFTf (cf, 6 )="DaDier‘' THEN GOSUB 2110:6070 490 
300 IF LEFTf (cf.5l=''stvîîJ" THEN GOSUB 2150:6070 490 
310 IF LEFTf (cf, 6 )=" 5 vance“ THEN GOSUB 510:G0T0 490 
320 IF LEFT$ (■:$, 6 )=“droit 9 " OR lEFTf (c$. 6 )=''gâuch 0 " THEN GOSUB 560:G0T0 
490 

330 IF LEFTI Icf,3)="fin'' THEN 1790 

340 IF LEFTf (cl,ô)=’'e{face“ THEN CLS#0:60TO 490 

350 IF lEFTf (cl,9)="direction- THEN GOSUB 1870:6070 490 

360 IP LEFTT ic$.7)="oriQine*' THEN GOSUB 1930:6070 490 

370 IP LEFTI lcf.ll)=''vâ au label" THEN c!J= 1{VAL (MIDI lcM3))):60T0 490 

380 IF LEPTf icl.2)="y:" THEN v(VAL (flIBf (c$.3,I)))=VAL iMIDf (c$.6)):G0 

70 490 

390 IF LEF7$ (c$, 5 }=“ 5 i vC THEN GOSUB B80:G0T0 490 

400 IF LEFTI (c$.9)=''càl.:ul de" THEN v(VAL (MIDI (cî,13.1)))=v(VAL (HID$ 

icî,13,n;)+VAL (MIDI (CI,20)):60TO 490 

410 IF LEPT$ irf. 5 )=''ii 3 t 9 " THEN p=VAL (MIDI (c$.7)):GOSUB 1270:6070 490 

420 IF LEFTI (cl,7)=‘'âTfiche" THEN LOCATEIaflao.VAL (MIDI (c$.12.2)).VAL 

IMIDf (c$,l5.2)):PRINTlQTlaQ,MID$(c$.18):B0T0 490 

430 IF LEF7$ (c$,3:'="50n" THEN SOUND 1.89:6070 490 

440 IF LEFT$ (c$,9)="rectanQle'‘ THEN GOSUB 680:G0T0 490 

450 IF LEFTf(c$, 6 )="cercle" THEN GOSUB 1680:6070 490 

460 IF LEFTIic$.5)=‘'label" THEN GOTO 490 

470 IF oFlagM THEN 2190 

480 GOTO 1610 

490 co=co+i 
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500 GOTO 240 
510 ' 


■ 520 ' ♦♦♦♦♦♦♦♦♦AVANCE*»*»***#* 


530 ' 

540 IF MIDI (c$,8,l)="v'' THEN xâ=SrN {d)*v(VAL (MID$ (cl,10.l))):xb=C0S ( 
[f)*v(VAL (MIDI lcl,10,I)));DRAW xa,xb,coijl;zâ=xa+za: 2 b=xb+ 2 bîORIGIN zà,zb 
îRETURN, 

550 xa=SrN (d)*VAL (MIDI (c$,8))!xb=COS (d)*VAL (MIDI (cl.GDîDRAW xa.xb, 
coul:za=xa*zâ:2b=xb+zb:0RIGIN za,zb:RETURN 
560 ' 


570 ' ♦♦♦♦♦♦♦♦♦DROITE/GAüCHE********* 

5B0 ' 

590 IF «101(04,8,1)=%'’ THEN GOTO 640 

600 IF LEFTI lc$,I)="d’' THEN d=d+(VAL (MIDI (c4.8 ))IîRETURN 

610 IF LEFTI (cl,I)=‘'q“ THEN d=d-(VAL (MIDI (c$,B)))îRETURN 

620 G0SU6 1650 

630 RETURN 

640 IF LEFTI (cl,i)=''d" THEN d=d+v(VAL (MIDI (c4.10,1)))îRETURN 

650 IF LEFTI (cI,1)=''q'' THEN d=d-v(VAL (MIDI (cl.lO.DDîRETURN 

660 GOSUB 1650 
670 RETURN 
680,’ 

690 ■ ♦********RECTANGLE********* 


700 ■ 


710 IF MIDI(cl,ll,l)="v" OR MIDI(cl,15,l)="v" THEN GOTO 770 
720 10=VAL (MIDI (cl,ll,3)):ll=VAL (MIDI (cl,15)) 

730 ORIGIN 2a,2b:xa=SIN(d)*10!xb=COS(d)*IO;DRAW xa,xb,cou!! 2 a= 2 a+xa; 2 b= 2 b 
♦xbîORIBIN 2 a,zb 


740 d=d*90!xa=SIN(d)*ll:xb=COS(d)*lIsDRAW xa,xb,coul!2a=2a+x3;zb=zb+xb!0R 
IGIN za,zb 

750 d=d+90:xa=SIN(d)*I0:xb=C0S(d)*10:DRAW xa,xb,coul!za=za+xa!zb=zb+xb!OR 
IGIN 2 a,zb 


760 d=d*90!xa=SIN(d)*ll!xb=C0S(d)*llîDRAW xa,xb,couI:2a=zâ+xâ:zb=zb+xb!0R 
IGIN 2a,2b!d=d+90;RETURN 

770 IF MIDI(cl,ll,l)='v" THEN IF MIDI(cl,I6,I)=''v’' THEN 10=v(VAL(MIDI(cl, 
13,l)))!ll=v(VAL(MIDI(cl,lB,l))) ELSE 10 =y(VAL(MIDI(cI. 13.1)));11=VAL (MI 
DI (cl,16)) 

780 IF MIDI(cl,15,l)=''v" THEN 10=VAL (MIDI (cl,ll,3))!ll=v(VAL(MIDI(cl.l7 

, 1 ))) 

790 GOTO 730 
800 ' 


810 ’ ♦♦♦******LABELS********* 
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820 

830 PRINT "PREPARATION DES LABELS" 

840 FOR n=l TO 100 

850 IF LEFT$ (i$(n) ,5)="lâbel" THEN KVAL (MIDI (iKnJ.7)))=n 
860 NEU n 
870 GOTO 200 
880 ' 

890 ' 

900 ' 

910 IF v(VAL (MIDI (c$,6,l)))=0 THEN co=l(VAL (MIDI (c$,23))) 
920 RETURN 
930 ' 

940 ' 4##*#*»*#£DITEUR^hhh^****» 

950 ■ 

960 60SUB 2280 
970 0=1 

980 INPUT reDlic$=LOWER$(rei]l);IF c$="" THEN GOTO 980 

990 t=0;c$=c$+" "t2a=320:2b=200:ORIGIN za.zb:d=0 

1000 IF c$="sauve " THEN GOTO 2370 

1010 IF c$="charQB " THEN GOTO 2510 

1020 GOTO 1080 

1030 il(p)=cf 

1040 IF c$="oublier " THEN RUN 

1050 PRINT CHR$(ll)CHRI(lI)p;" îPRINT SPC(79):PRINT 

1060 p=p+l:IF p=101 THEN p=100 
1070 GOTO 980 
1080 ■ 

1090 ' ♦♦«♦«♦♦♦♦ORDRES********* 

1100 ' 

1110 IF LEFT$ (c$,2)="l "THEN 60SUB 1210 

1120 IF cl="i " THEN GOSUB 1350 

1130 IF c$="d " THEN GOSUB 1450 

1140 IF c$="e " THEN GOTO 800 

1150 IF cl="q " THEN END 

1160 IF c$="g " THEN GOTO 2190 

1170 IF C$="h "THEN GOSUB 2960SGOTO 930 

1180 IF LEFTI (c$,3)="var" THEN GOSUB 1530 

1190 IF t=l THEN GOTO 980 

1200 GOTO 1030 

1210 ' 

1220 ' ♦********LISTE********* 

1230 ' 
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1240 CLSîIF LEN (c$)=2 THEN cl=cl+.''r 
1250 p=VAL (MIDI (c$,3)) 

1260 IF p>100 THEN GOTO 1320 
1270 FOR n=p TO p+19 
1280 IF n>100 THEN GOTO 1320 

1290 IF LEFTI (i${n),3)="fin'' THEN PRINTîPRINT" ";i$(n)!“du propranme." îG 
OTO' 1320 

1300 PRINT n.'îIF n<10 THEN PRINT" ELSE PRINT i$(p) 

1310 NEXT n 
1320 t=I 

1330 LDCATE 1,24 
1340 RETURN 
1350 ' 

1360 ' ♦♦♦♦♦♦♦♦♦INSERTION**»^^***** 

1370 ' 

1380 t=l 

1390 FOR n=99 TO p STEP -1 
1400 i$(n+l)=i$(n) 

1410 NEXT n 
1420 i$(p)=">" 

1430 c$="l "+STRI IplsGOSUB 1240 
1440 RETURN 
1450 ' 

1460 ' 

1470 ' 

1480 FOR n=p TO 99 
1490 il(n)=il(n+l):NEXT n 
1500 il(100)='' ” 

1510 c$="l ‘'+5TRI (plîBOSUB 1240 
1520 RETURN 
1530 ' 

1540 ' 4*»*»*if»»VARIABLES+******** 

1550 ' 

1560 CLS 

1570 PRINT "v('';«ID$(c$,7,l);'')='';v{VAL (MID$ {cl,7,l)))ît=lîRETURN 
1580 ' 

1590 ' ♦♦♦«♦♦♦♦♦ERREURS*»***»** 

1600 ' 

1610 CLS;PRINT “Instruction; “!C$;PRINT "Erreur en ligne “!ca:FOR pa=l TO 
200Û;NEXT pa:c$="l "+STR$ (co);GOTO 990 
1620 ' 

1630 ' ♦♦♦♦♦♦♦♦ANGLES******** 


49 



1640 ' 

1650 IF d>360 THEN d=d-360 
1660 IF d<0 THEN d=d+360 
1670 RETURN 
1680 ' 

1690 ' ♦♦jnnnf»**CERCLE***^***** 

1700 ’ 

1710 IF f1IDf(c$,8,l)="v‘‘ THEN 1770 
1720 r=VAL(MID$(cS.8)) 

1730 FOR i=0 TO 360 

1740 PLOT r*SIN(i).r4C0S{i),coul 

1750 NEH i 

1760 RETURN 

1770 r=v(VAL{MID$lcl,10,l))) 

1780 60T0 1730 
1790 ' 

1800 ' 

1810 ' 

1820 INK l.ûiPEN lîLOCATE 1,25;INPUT'COMMANDE —) '',r80l;c$=L0WERI(rBO$) 

1830 IF c$=‘'e“ THEN GOSUB 2280:6070 800 

1840 IF LEFT$(c$,l)='‘rTHEN c$=c$+" "îGOSUB 2280:6070 1080 

1850 IF c$=“q* THEN GOSUB 2280:END 

1860 LOCATE 1,25:PRINT SPC(78);G0TD 1790 

1870 ' 

1880 ' ♦♦♦♦♦♦♦♦^DIRECTION/ORIBINE*»^*»**** 

1890 ' 

1900 IF HIDI(C$,lUl)="v" THEN 1920 
1910 d=VAL (MIDI (c$,ll)):RETURN 
1920 d=v{VAL(MID$(c$,13,l))):RETURN 
1930 ' 

1940 IF !1ID$(cl,9,l)='‘v" OR MIDI(c$, 13,l)=''v" THEN 1980 
•1950 2 a=VAL (MIDI (cl.9.3)) 

1960 2 b=VAL (MIDI (cl,13,3)) 

1970 ORIGIN za.zbsRETURN 

1980 IF MIDI(cl,9,l)="v" THEN IF MIDKcl, 14,1)=%" THEN 2 a=Y(VAL (MIDI (c 

1.11.1) )): 2 b=v(VAL (MIDI (cl,16,1))) ELSE 2 a=v(VAL (MIDI (cl,ll,l))):2b=0 
AL (MIDI (cl,14,3)) 

1990 IF MIDt(cl,13.1)=-v" THEN 2 a=VAL (MIDI (cl.9,3));2b=v(VAL (MIDI (cl. 

15.1) )) 

2000 ORIGIN 2 a,zb:RETURN 
2010 ' 

2020 ' ♦«♦«♦♦♦♦BORD/ENCRE/PAPIER/STYLO*»*»»#^** 
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2030 

2040 IF MID$(c$,6,l)='‘v“ THEN 2060 
2050 BORDER VfiL(HIDI(c$.6)):RETURN 
2060 BORDER v{VAL(f1IDI(c$.8,l)))!RETURN 
2070 ' 

2080 IF MIDKcMO,!)^^" THEN GOTO 2100 
2090 IN< VAL(MID$(c$,7,2)),VAL(«IDI(cM0)):RETURN 
2100 INK VAL{NIDI(c$,7.2;),v(VAL(?1ID$IcI.12,1)!)!RETURN 
2110 ■ 

2120 IF MID${c$,8,I)='’v'’ THEN GOTO 2140 
2130 PAFERlQTlaQ,VAL(MID$îcl.8)):CLS:RETüRN 
2140 PAPER#QTlâO,v(VAL{NID4ict,10.1)}?:CLS!RETüRN 
2150 ' 

2160 IF MID{{:l.7,l)=“v" -HEN GOTO 2180 

21^0 PENlQflaq,VAL(MID$icî.7)j!-:oui=VAl.;!1IIi$(-:î.7));RETyRN 

2180 ?ENIotlao.vlVAL(NID$(cl.9,l/;);coul=viVALlMIDM:l,9.pr.;RETuRN 

:po 

2200 DIRECT********* 

2210 ' 

2220 6FLAG=1 

2230 CLSîWINDQW 1.30.23,25 jPAPER 1;PEN OîCLS 
2240 PRINTîINPUT “Connnande \repî:cl=L0WER$ir9p$) 

2250 IF cl="sfTace‘' THEN PEN lîPAPER 0;N0DE 2!G0T0 2190 
2260 IF î:$=‘'q- MN GOSOB 2280:gflaq =0:6010 930 
2210 GOTO 26Ô 
2280 ■ 

2290 ' ♦♦******INITIALISATIQN******** 

2300 ■ 

2310 HODE 2 

2320 zâ=320:zb=200:d=Û 
2330 ORIGIN za.zb 
2340 INK 1,0:INK 0.13 
2350 PEN 1;PAPER 0:B0RDER 15 
2360 RETURN 
2370 ' 

2380 ' ♦♦♦♦♦♦♦♦SAUVEGARDE******** 

2390 ' 

2400 CLS:PRINT"SAUVEGARDE DU PROGRAMME" 

2410 PRINT"."• 

2420 LOCATE 1.10:INPUT"Entrez le non de votre orooranflie : ''.noinl 
2430 LOCATE 1,18:PRINT" Veuillez patienter," 

2440 PfiINT"SauveQarde en cours..,":PRINT:PRÎNT 
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2450 OPENOUT noffl$ 

2460 FOR bc=l TO 100 
2470 PRINTi9,il(bc) 

2480 IF i$(bc)=''^in''THEN bc=lûl 
2490 NEXT bc 
2500 CLOSEOUTiSOTO 930 
2510 ' 

2520 ' ♦♦♦♦♦♦♦«CHARGEMENT****»*»* 

2530 ' 

2540 CLSiPRINTTHARGEMENT DU PROGRAMME" 

2550 PRINT"." 

2560 LDCATE 1,10:INPüT"Entrg 2 le non de votre progranne ; ",non$ 

2570 LOCATE l,lBiPRINT* Veuillez patienter," 

2580 PRINT'TharaeiiiBnt du oroorannte "inoni;" en cours,.." îPRINTîPRINÎ 
2590 OPENIN " 

2600 FOR bc=l TO 100 
2610 INPLiT49,i$(bc) 

2620 IF i$(bc)="Iin" ThEN bc=101 
2630 NEXT bc 
2640 CLOSEINîGOTO 930 
2650 ' 

2660 ' ♦♦♦♦♦♦♦♦♦PRESENTATION********* 

2670 • 

2680 MODE OîINK 3,1,5!INK 1.1:INK O.OîBORDER 0 
2690 ch$="AMSLDG" 

2700 ORIGIN 1B6,347:DRAWR 204,0,1 

2710 DRAWR 0,“34rDRAWR -202,0!DRAWR 0,34 

2720 PEN 3 

2730 FOR i=l TO 6 

2740 cd$=MID$(chl,i,l) 

2750 LOCATE 6*i,5!PRINT cdl 
2760 SOUND l,89+i*lÔ 
2770 FOR pa=l TO lOOîNEXT pâ,i 
2780 PEN 1 

2790 LDCATE 2,15!PRINT*Lângage Graphique" 

2800 LOCATE l,17!PRINT"Etudi@ pour le'D.A.O" 

2810 INK 2,3îPEN 2!L0CATE 2,20:PRINT CHR$(164)+" Stéphane CLOIREC" 

2820 LOCATE 2,24:INK 4,9!PEN 4:PRINT"In5truction5 (0/N)?" 

2830 rep$=INKEYl!r$=LOWER$(reDl);IF r$="n‘' THEN RETURNîIF r$="o" THEN GOT 
0 2860 

2840 IF r$="D" THEN GOTO 2860 
2850 GOTO 2830 
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2860 MODE 1 
2870 INK MlîPEN l 

2880 LOCATE S.lîPRINT AMSLOGîI nstructions ♦♦♦♦♦" 

28<’0 LOCATE UiPRINT" Ce prooraïune est une adaptation si«- -plifi^e du 
lanoaqe LOGO.” 

2900 PRINTîPRINTiPRINT" Il comporte deux «odes différents: 
un mode direct d'ordinateur interprète immédiatement les ordres que vou 
s lui fournissez)" 

2910 PRINT:PRINT'' - un mode programme (il stocke alors les instru 

ctions sous forme d' un listing pour exécution ultérieure)" 

2920 PRINT;PRINT;PRINT" Un éditeur de texte vous permet ausside modifie 
r vos programmes (supprimer etinsêrer des lignes, lister, exécuter...)" 
2930 LOCATE I,24;PRINT "Tapez une touche":L0CATE 35,24;INK 2,11,0!PEN 2:P 
RINT 

2940 r$=INKEY$;IF rIO"" THEN GOTO 2960 
2950 GOTO 2940 
2960 MODE 1:PEN 1 

2970 PRINT " Voici la liste des instructions:" 

2980 PRINT:PRINT:PRINT"H laffiche les instructions utili5ables";PRINT"L : 
liste les 22 premières lignes. L xiliste a partir de la ligne x." 
2990 PRINT"! ;insere un espace entre deux lignes en décalant la lere li 
gne du dernier listinq vers le bas." 

3000 PRINT"D isupprime la lere ligne du dernier listing et remonte 
toutes les autres d'une ligne. 

3010 PRINT"E :exêcute un prooramme." 

3020 PRINT"Q ;quitte le programme." 

3030 PRINT"SAUVE :sauvegarde le programme sur k7." 

3040 PRINT"CHARGE :lit un programme sur k7." 

3050 PRINT"VAR V(x) :affiche la valeur de la variable v(x 

)" 

3060 PRINT"0UBLIER .'perd le programme" 

3070 LOCATE l,24;PRINT"Tapez une touche":L0CATE 35.24:PEN 2;PRINT"->" 
3080 rl=INKEYI:IF r$<>"-THEN 3100 
3090 GOTO 3080 
3100 CLS:PEN 1 

3110 PRINT" Mode programme." 

3120 PRINT;PRINT*V(x)=n ;donne a la variable v(x) la valeur n 

U 

3130 PRINT"DIRECTI0N n :lâ direction en cours devient n 

est pl 


3140 PRINT"0RIGINE nnn.nnn;rorigine du graphisme 
acée au coordon- -nées nnn.nnn" 
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-leur nn. 


3150 PRINT-'EFFACE leffâce l'écran." 

3160 PRINT''ENCRE xx.nn îdonne a l'encre xx la va- 

II 

3170 PRINT"PAPIER xx 5le papier prend U couleur de l'encre xx. 


3180 PRINT“STyiO xx :1e stvlo prend la couleur de l'encre xx." 

3190 PRINT"B0RD nn :1 b bord de l'écran prend la couleur nn." 

3200 LOCATE 1.24:PRINT"Taoez une touche*:l0CAT£ 35.24:PEN 2:PRINT"-...'' 
3210 r$=INKEY$:IF r^:>*"THEN 3230 
3220 50T0 3210 
3230 CLS:PEN 1 

3240 PR INT "AFFICHE EN nn.nn .'écrit en nn.nn ce qui est 

aTfich® a la llçine suivante du prooraflime." 

3250 PRINT"LABEL n :oositiDnne un label (utilisé pour les saut 

5 )“ 

3260 PRINT"50N :fait un son bref et aiou" 

3270 PRINT"AVANCE x :avance de x pixels dans la direction en 

cours. " 


3280 PRINT"GAUCHE x :tourne a gauche de x degrés." 

3290 PRINT"DROITE x :tourne a droite de x degrés.” 

3300 PRINT"FÎN :Tin du programme." 

3310 PRINT"VA AU LABEL x : saute au label x.” 

3320 PRINT"SI V(x)=0 VA AU LABEL x :saut au label x 
si v(x) égale 0" 

3330 PRINT"LISTE x :liste le orografliine a partir de la ligne x." 

3340 PRINT"CALCUL DE V(x)=.,, :v(x) prend la valeur de 

ce qui suit le signe égal." 

3350 LOCATE l,24:PRINT"Tape2 une touche":L0CATE 35.24:PEN 2:PRINT"“->" 
3360 r$=INKEYI;IF rl<>”"THEN 3380 
3370 GOTO 3360 
3380 CLS:PEN I 

3390 PRINT"RECTAN6LE xxx.xxx : trace un rectangle de cot 

§3 XXX et XXX." 

3400 PRINT"CERCLE xxx : trace un cercle de ravon xxx" 

3410 PRINT:PRINT:PRINT" Tous les tracés ont pour origine le dernier po 
int inscrit. De plus,il est possible de oara/iiétrertou 

tes les instructions avec les varia- -blés v(x)." 

3420 PRINT;PRINT:PRINT" Vous aller maintenant pouvoir commen—cer a pro 
grammer en AMSLOG.Vous verrez qu'il est possible,avec de très courts pro 
grammes,de créer de superbes graphis—mes," 

3430 LOCATE l,25:PRrNT "Tapez'une touche";LOCATE 35,25:PEN 2:PRINT 
3440 IF INKEYIO"" THEN RETURN 
3450 GOTO 3440 
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LA SAUVEGARDE 
DES DONNÉES 


Michel ARCHAMBAULT 


U ne cassette vierge dans le magnéto-cassette ne sert pas unique¬ 
ment à sauver un programme que vous avez écrit, on peut aussi 
enregistrer des valeurs (nombres, chaînes) que l'on tient à conserver : 
c'est alors un enregistrement de fichier. 

C'est un peu moins simple que le SAVE " " pour un programme Basic, 
mais ce n'est pas compliqué à partir de l'instant où l'on a compris la 
raison d'être de certaines fonctions du genre OPENIN, CLOSEOUT, etc. 


LES DIRECTIONS IN ET OUT 

Le micro-ordinateur pense par rapport à lui-même ; le magnéto, ce n'est 
pas dans sa mémoire, il fait partie de l'extérieur (même si le construc¬ 
teur l'a mis sous le même capot en plastique). Le clavier, l'écran, une 
imprimante, un lecteur de disquettes sont aussi, pour lui, des éléments 
extérieurs (on les appelle aussi des "périphériques"). 

Quand il envoie sur cassette, c'est OUT ; quand il reçoit des données 
de la cassette, c'est du IN. D'accord ? 

Ce n'est pas la peine de le spécifier pour le clavier (toujours du IN), ou 
pour l'écran et une imprimante (toujours du OUT), uniquement pour les 
périphériques bi-directionnels, à savoir magnéto-cassette, lecteur- 
enregistreur de disquettes (ou "DRIVE") et MODEM. 

La nature de l'ordre Basic le prévient sur le sens : PRINT ou WRITE, 
c'est du OUT ; INPUT, c'est du IN. Encore faut-il lui dire le nom du péri¬ 
phérique expéditeur ou récepteur, c'est le "canal", # 0 à # 9 (le signe 
# se prononce dièse). Quand on ne précise pas le canal, c'est le canal 
#0 ; ainsi PRINT #0 = vers l'écran, INPUT #0 = entrée venant du 
clavier, le canal zéro est donc le canal implicite. 

Le canal #8, c'est l'imprimante, on écrit donc simplement PRINT #8. 
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Le canal cassette, c'est # 9. Alors là, tout se complique, car il faut pré¬ 
venir l'ordinateur s'il lui faut OUVRIR sa mémoire pour une sortie ou 
pour une entrée : c'est OPENOUT ou OPENIN. A la fin du transfert de 
données, il faut le prévenir que c'est terminé, c'est CLOSEOUT ou 
CLOSEIN. 


UN EXEMPLE SIMPLE 

Un programme vous a fait entrer (INPUT) des noms, des nombres ; il 
a calculé des résultats. Vous voulez conserver tout cela sur bande 
magnétique. Ce fichier s'appellera "MACHIN" (original, n'est-ce pas ?). 

400 OPENOUT "MACHIN" 

410 PRINT #9, A$, B$, C$, NB, TOTAL, FZ$ 

430 CLOSEOUT 

Le nom du fichier n'est pas obligatoire, onn peut aussi commander 
OPENOUT " ". 

A la suite de PRINT #9, on retrouve la même écriture que PRINT à 
l'écran ; les virgules sont des "séparateurs" de zones de données, 
comme à l'écran, comme dans une ligne de DATA, comme une suite 
de paramètres après une fonction Basic. 

Qu'y a-t-il sur la bande enregistrée ? Un signal de début fichier, le nom 
du fichier, trois chaînes, puis deux nombres, une chaîne, et enfin le 
signal de fin de fichier. Il n'y a pas les noms des variables enregistrées, 
seulement leurs valeurs. Ce point est très important. 

Complétons un peu. Enregistrons le contenu d'un tableau DIM F(100,5). 
Insérons la ligne 420 : 

420 FOR 1 = 1 TO 100:FOR J = 0 TO 5:PRINT #9, F(I,J):NEXT:NEXT 

Une seule ligne pour sauvegarder un tableau de 600 nombres ! Pas 
mal... 

Résumons la technique : après le OPENOUT " ", on fait PRINT # 9 sur 
chaque valeur à enregistrer. On ferme par CLOSEOUT. 


RETROUVONS NOS VALEURS 

Pour mettre en mémoire vive (en RAM) ces valeurs sur bande, il suffit 
d'écrire ces mêmes lignes en Basic, mais en remplaçant OUT par IN 
et PRINT #9 par INPUT ff9. C'est tout ; mais attention à trois pièges 
hélas classiques : 

— demander un nombre alors que c'est une chaîne qui se présente ou 
vice-versa. Ainsi, nous avions, dans l'ordre, A$, B$, C$, NB, etc. Si 
nous programmons : 
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INPUT #9, A$, B$, C, NB 

il y aura un plantage. Mais, on a droit à : 

INPUT mm, VILLE$, REP$, PRIX, etc. ; 

— on demande d'entrer un nombre de variables plus grand ou plus petit 
que contient le fichier sur bande : plantage ; 

— dans le cas de "variables indicées" (celles d'un tableau DIM), on 
a oublié d'annoncer ce DIM. Exemple : DIM F(100,5) en début 6u pro¬ 
gramme. Là aussi plantage. 


LE CAS DES FICHIERS ELASTIQUES 

C'est-à-dire des fichiers dont le nombre de valeurs peut varier d'un enre¬ 
gistrement à un autre. Le cas est fréquent, mais il y a deux façons de 
se tirer d'affaire : par la fonction EOF ( = END OF FILE) qui signale qu'il 
a reçu le signal de fin de fichier, ou encore en prévenant en début de 
fichier du nombre de valeurs qui vont suivre. Voyons un exemple avec 
EOF. 

500 OPENIN "TRUC" 

510 IF EOF THEN 550 
520 INPUT #9, AD, NB 
530 POKE AD, NB 
• 540 GOTO 510 
550 CLOSEIN 

Notez bien que la boucle de chargement 510-540 débute par le texte 
EOF, ce qui évite tout problème. 

Second exemple : à l'enregistrement, nous avions partiellement garni 
un tableau de noms prévu pour un maximum de 500, soit DIM 
NOM$(500). En fait, on n'en a entré aujourd'hui que 48. Le programme 
les a comptés, c'est la variable NB = 48. Le fichier a été enregistré 
comme suit : 

800 OPENOUT "REUNION DU 28/6/86" 

810 PRINT #9, NB 
820 FOR 1=1 TO NB 
830 PRINT #9, NOM$(l):NEXT 
840 CLOSEOUT 

Dans le sous-programme de chargement : 

910 INPUT "TITRE", NDF$ 

920 OPENIN NDF$ 

930 INPUT #9, NB 
940 FOR 1 = 1 TO NB 
950 INPUT ff9, NOM$(l):NEXT 
960 CLOSEIN 
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Et le tour est joué. Facile, non ? 


CONCLUSION 

Ces quelques mots Basic que nous espérons avoir démystifiés sont 
d'une importance primordiale : ils permettent d'archiver des données 
entrées ou calculées par l'ordinateur, et ce mieux que sur papier, car 
elles peuvent redevenir actives après rechargement sans que l'on ait 
eu à les lire sur une feuille ou à les retaper au clavier. Un micro¬ 
ordinateur, c'est aussi autre chose qu'une super calculatrice 
programmable... 

Vous avez ainsi tous les éléments pour vous confectionner des fichiers 
sur bande à vos mesures. 

Lancez-vous. OPEN ! 
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TRACEUR DE CAMEMBERTS 


Michel ARCHAMBAULT 


L es résultats d'élections à la télévision nous ont familiarisés avec 
cette représentation circulaire des divers pourcentages obtenus. 
C'est beaucoup plus "parlant” que les diagrammes en barres 
verticales. 

Le programme que nous vous proposons est complet, à savoir : la sai¬ 
sie des données brutes, le calcul automatique en pourcentages, le clas¬ 
sement (facultatif), l'affichage de la représentation graphique en 
camembert avec la liste complète des éléments (pourcentages et total), 
édition sur imprimante de la liste des résultats et "Hard copy" de la 
page graphique. Ajoutez à cela les corrections d'erreurs à la saisie et 
une multitude de sécurités anti-étourderies. Un logiciel d'une rapidité 
étonnante pouvant être utilisé à des fins professionnelles, et qui ne fait 
que 3655 octets REM comprises, soit deux "Blocks" sur cassette. 


LE MODE D'EMPLOI 

Il est parfois beaucoup plus clair de commencer par la fin... 

La première page d'écran est le titre qui vous demande d'entrer le nom 
de baptême de votre tableau. Tous les caractères tels virgule et guille¬ 
mets sont admis. Un pointillé vous indique le nombre de caractères 
maxi (40). 

Deuxième page d'écran : la saisie des données brutes. L'en-tête rap¬ 
pelle que vous avez droit à douze noms (ou éléments) de 1 5 caractè¬ 
res maxi chacun. La numérotation de 1 à 12 est automatique. Nous 
sommes toujours en MODE 1. 

Entrez le premier nom, ENTER, quantité correspondante, ENTER, nom 
suivant, etc. 

En bas de l'écran figurent deux options : E pour erreur, Q pour quitter 
la saisie (automatique après le douzième nom). Deux cas d'erreurs : 
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— le curseur étant sur "quantité”, vous constatez une erreur sur le nom 
situé à gauche {vous avez déjà pressé ENTER). Tapez E,ENTER; vous 
pouvez réécrire le nom ; 

— le curseur est sur "NOM" et vous constatez que la ligne supérieure 
est erronée, tapez E et vous revenez sur la ligne précédente. 

A la fin de la saisie, on vous demande si vous voulez un classement. 
Répondons N (non), par exemple. Aussitôt après... 

Troisième page d'écran, en MODE 2, le camembert se dessine à gau¬ 
che. Chaque secteur est repéré par des lettres A, B, C, D, etc. En haut 
apparaît votre titre. A droite la légende. Lettre A = tel nom = tel pour¬ 
centage, etc. Au-dessous "Sur un total de ..." (somme des quantités). 
En bas à droite, le choix entre quatre options : 


1 = 1 IMPRIMER 

(Si vous avez une imprimante...). Il y a d'abord écriture de la liste détail¬ 
lée des résultats, saut de page paramétré et copie sur imprimante (ici 
EPSON ou assimilée) de la page d'écran graphique. Un bip sonore signale 
la fin de ce travail. Les autres options sont toujours disponibles. 


C = CLASSER 

La page d'écran est modifiée avec, cette fois-ci, le plus fort pourcen¬ 
tage obtenu en "A", et ainsi de suite. On peut commander une 
deuxième impression. 

E=ENCORE 

C'est un RUN du programme pour un autre tableau. 


F = FIN 

Retour à l'état initial de l'AMSTRAD (couleurs), MODE 1 et END. 


LE PROGRAMME 

Si vous n'avez pas d'imprimante, vous pouvez vous dispenser de taper 
les lignes 4220, 5000 à 5110, et de 56000 à la fin. De même, suppri¬ 
mez Z (200) en ligne 50, 

Pour beaucoup d'entre vous, ce sera l'occasion d'utiliser certaines fonc¬ 
tions Basic peu courantes mais tellement pratiques, qui font la gloire 
de l'AMSTRAD. 


60 


— UPPER$ qui transforme tout en majuscules. 

— STRING$ qui évite de taper une longue série du même caractère ; 
de même SPC pour les blancs (dont le manuel ne parle pas...). 

— CHR$(18) qui efface la ligne à droite du curseur. 

— CHR$(7) qui émet un bip sonore. 

— ‘XPOS, YPOS qui permettent de faire un LOCATE à l'extrémité d'un 
DRAW ou d'un DRAWR. 

— LINE INPUT qui est à INPUT ce que WRITE est à PRINT (prend abso¬ 
lument TOUS les caractères). 

Nous avons ajouté une fonction Basic manquante : CIRCLE. C'est notre 
mini-module 54000 à 54040 qui trace un cercle parfait (pas en pointil¬ 
lés...) en une seconde ! On lui donne les coordonnées X, Y de son cen¬ 
tre, son rayon R et sa couleur COL (PEN 1 par défaut). Son principe 
est de tracer 36 "cordes". 

C'est arbitrairement que nous avons limité le nombre de noms à 12. 
Il ne faut pas confondre camembert et roue de bicyclette ! 

Nous avons souvent usé d'un côté sympa de l'AMSTRAD qui, lorsqu'il 
attend des valeurs entières (exemple dans un LOCATE) et qu'on lui livre 
des valeurs calculées décimales, transforme ces dernières en entiers 
et arrondis au plus proche ! 


TABLEAUX DE CALCULS 

DIM CA(12,3) : En 1 ce sont les quantités NB saisies (totalisées par 
TNB). En 2, le rapport NB/TNB (multiplié par 100 = %). En 3 = la posi¬ 
tion angulaire, donc tenant compte des angles des secteurs antérieurs. 
Ils sont recalculés si on a demandé un classement (tri) en deuxième 
passe. 


TRACE 

Après tracé des rayons séparant les secteurs (ligne 4040), on trace "à 
blanc" les bissectrices de ces secteurs, mais avec un rayon plus court 
(lignes 4050 à 4080). Il s'agit alors de transformer ces coordonnées 
graphiques (XPOS et YPOS) en coordonnées texte (LOCATE) afin d'ins¬ 
crire l'initiale du secteur (A, B, C...). Le calcul de la ligne 4090 fait une 
division par 16 pour l'axe Y (400/25= 16) et par 8 pour l'axe des X 
(640/80 = 8), car nous sommes ici en MODE 2. 

La rapidité d'exécution est assez .surprenante. 


impression 

Le module 5000-5110 peut être appliqué à toute imprimante, à l'ex¬ 
ception du CHR$(27)" " (ligne 5010) qui est un code EPSON qui vide 
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le buffer de rimprimante ( = "initialisation d'imprimante"). Une précau¬ 
tion systématique. Le saut de page de la ligne 5090 s'applique au papier 
11 pouces de 66 lignes par page (le plus courant). 

Le module de Hard-Copy (56000-56240) ne concerne que les impri¬ 
mantes EPSON RX ou FX (et les EPSON vendues sous une quinzaine 
d'autres marques... ). Le principe consiste à explorer la mémoire d'écran 
en 80 bandes verticales, mise en DIM Z de ces octets, et envol de ceux- 
ci en "BIT IMAGE" (code CHR$(27) "K" de la ligne 56120). On obtient 
alors un tracé 18x24 cm qui déforme légèrement le cercle. 

NOTE : Si vous utilisez ce module utilitaire pour d'autres programmes, 
n'oubliez pas le DIM Z (200) mis ici en ligne 50. 

10 ' CAMEMBERT / AMSTRAD 
20 ' Michel ARCHAMBAULT 1985 
50 DIM NM$(12).CA{I2.3),Z(200) 

ÔO 'DIM CA;1=QUANTITE NB;2=NB/T0TAL!3=P0SITI0N ANGULAIRE 
70 INK OUîINK 1,24:INK 2,20:INK 3,6:B0RDER 15:0RIBIN 0,0 
1000 'TITRE 

1010 MODE lîPAPER 2!PEN SîCLSîLOCATE 20,95PRINT "CAMEMBERT" 

1020 R=120îX=160:Y=260!C0L=‘1îB0SUB 54000 

1030 LOCATE 3,20;PEN OsPRINT "Nom du Tableau! "|STRING$(22.".'');STRINGI(l 
B,''.“):PEN 3;LQCATE 19.20:LINE INPUT TIT$ 

1040 TÎT$=L£FTI(TITI,40) 

1100 'SAISIE 

1110 CLSiLOCATE 3,2îPRINT "12 NOMS un de 15 CARACTERES maxi. 

1120 LOCATE 4,24:PRINT "Erreur = E ; pour Quitter NOM = Q" 

1130 LOCATE 10,4:PRINT "NOM;"îLOCATE 25,4!PRINT "QUANTITE:":PEN 0 
1140 N=N+ 1 :L 0 CATE 5,5+N:PRINT USING "tr'iNiLOCATE 7,5+N:PRINT " : "iSTRIN 
6$(15,".")!L0CATE 10,5+NiLINE INPUT "",NM$ 

1150 IF UPPER${NHI)="Q" THEN N=N-1:G0TQ 2000 
1155 IF NMI=‘'E" THEN N=N-2i60T0 1140 
1160 NM$(N)=L£FT$(NM$,15) 

1170 LOCATE 27,5+N:lNPUT "",NB$:NB=VAL(NBI)!IF UPPERI(NBI)="£" THEN N=N-1 
:B0T0 1140 

1175 IF (NB=0 AND NBI<>"0") OR NB<0 THEN PRINT CHR$(7):G0T0 1170 
1180 CA(N,l)=NB:TNB=TNB+NB!lF N=12 THEN 2000 
1190 GOTO 1140 
2000 'FIN DE SAISIE 

2010 PEN 3:IF N=1 THEN PRINT CHRI(7)îLOCATE 3,22!PRINT "Pas de Camembert 

pour UNE variable...";F0R 1=1 TO 3000!NEXT:RUN 

2020 LOCATE 6,22:PRINT “Voulez-vous classer ? ( 0/N )" 

2025 Q$=UPPERI(INKEY$)!lF Q$="N" THEN 3000 
2030 IF Qt<>''0“ THEN 2025 
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2040 LOCATE 6,22îPR]NT CHR$(18);SPC(Il);"Patief}ce...'' 

2100 'TRI 

2110 FOR J=1 TO Nj£=CA(J,1) 

2120 FOR I=J TO N 

2130 IF CA(I,1)>=E THEN E=CA(I,I):K=[:£$=NM$(I) 

2140 NEXT 

2150' CA(K,1)=CA(J,1)jCA(J,1)=E 
2160 NMI(K)=NM$(J)!NM$(J)=EI 
2170 NEXT 

3000 'CALCULS DIM CA 

3010 FOR 1=1 TO N!CA(I,2)=CA(I,1)/TNB:CA(I,3)=360*CA(I,2)+CA(I-1,3)îN£XT 
4000 * TRACE 

4010 MODE 2:INK 0,13:INK I.OîBORDER 9 
4020 X=180!r=200îR=170:COL=OjGOSUB 54000 
4030 FOR 1=1 TO N:PLOT X.Y.l 
4040 DRAWR C0S(CA(I,3))*R,SIN(CA{I.3/)*R!NEyT 
4050 FOR I=N TO 1 STEP-1 

4060 AB=(CA(I,3)+CA(I-I,3))/2?'ANGLE BISSECTRICE 
4070 PLOT X.Y 

4080 DRAWR COS(AB)M20,SIN(AB)4120.0 

4090 LOCATE XPOS/8,(400-YP0S)/16:PRINT CHR$(64*1/îNEXT:PLOT X.Y.l 
4100 LOCATE 40+(40-LEN(TIT$;)/2.2:PRINT TITI 
4110 FOR 1=1 TO N 

4120 LOCATE 47,4+I:PRINT CHRJ(Ô4*I);‘ : "sNMId) 

4130 LOCATE 67,4+l!PRINT "= "s.-PRINT USIN6 "iil.tr iCAd,2)M00;:PRINT " '/. 

4140 NEXT 

4150 LOCATE 50,19:PfiINT "SUR UN TOTAL DE"îTNB 

4200 LOCATE 38,23:PRINT "Encore,Fin, Impriier.Classer ? ( E.F,I,C )" 

4210 Q$=UPPERIdNKEY$):IF Q$="E" THEN RUN 

4220 IF 0$="!" THEN GOSUB 5000:PRINTI8,CHRI(27)"@":PRINT CHR$(7)îGOTO 420 

I) 

4225 IF Q$="C" THEN 2100 
4230 IF Q$<>"F" THEN 4210 

4240 MODE IdNK O.lîINK l,24îB0RDER liPAPER ô:PEN liCLS 
4250 LOCATE 11,12;PRINT "VOUS POUVEZ ETEINDRE.":PRINT:PRINT 
4260 END 

5000 'IMPRESSION (EPSON) 

5010 PRINTi8,CHR$(27)"@“;SPC((40-LEN(TIT$))/2)!TITI;PRINT#8 
5020 FOR 1=1 TO N 

5030 PRINT#8,USIN8 "ir;IiîPRINT#8,‘' j 
5040 PRINT#8,NMId)5SPC(15-LEN(NH$d)));" = 
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5050 PRINT#8,USING"Njr';CA(I,2)*lÛ0i 
5060 PRINTIB," 7. (";CA(1, 1) ;“ 

5070 NEXT 

5080 PRINT#8!PRINTII8,SPC(12);"Sur un TOTAL de";TNB 
5090 FOR 1=1 TO (62 -N)îPRINTUSîNEXT 
5100 GOSUB 56000 
5110 RETURN 

54000 ’ TRACE DE CERCLE 

54010 DEGîPLOT X+R,Y,1+C0L 

54020 FOR AX=0 TO 360 STEP 10 

54030 DRAW R»C0S(A7.)+X,R*BIN(AX)+Y!NEXT 

54040 RETURN 

56000 'HARD COPY MODE 2 sur EPSON 
56010 PRINT #8 

56030 PRINT II8,CHR$(27);CHR$(64)jCHR$(27);“A‘’;CHR$(B)î 
56040 PRINT II8,CHR$(13) 

56050 PRINT ll8,CHRI(15)î 
56060 FOR C0L=49152 TO 49231:1=0 
56070 FOR LI=COL TO COL+1920 STEP 80 
56080 FOR T=LI TO LI+14336 STEP 2048 
56090 I=I+1:Z(I)=PEEK(T):IF 1=200 THEN BOSUB 56120 
'56100 NEXT:NEXT:PRINT I8,CHR$(13}:NEXT 
56110 RETURN 

56120 PRINT #8,CHR$(27);"K''jCHfif(100)îCHR$l0); 

56130 FOR J=200 TO 151 STEP -1:P=Z(J) 

56140 PRINT i8.CHRI(P);CHRI(0);;NEXT 
56150 PRINT jl8,CHR$(27)j''K";CHR$(100);CHR$(0): 

56160 FOR J=I50 TO 101 STEP -lîP=Z{J) 

56170 PRINT II8,CHR$(P);CHR$(0)!!NEXT 
56180 PRINT i8,CHR$(27)|"K";CHRI(100);CHRI(0); 

56190 FOR J=100 TO 51 STEP -1:P=2(J) 

56200 PRINT i8,CHR$(P)!CHRI(0)i;NEXT 
56210 PRINT #B,CHRI(27)î"K"îCHR$(10Û);CHR$(0); 

56220 FOR J=50 TO 1 STEP -l!P=2(J) 

56230 PRINT #8.CHR$(P);CHRI(0);:NEXT 

56240 RETURN 

65535 ' FIN DE LISTING 
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VIE PRATIQUE 



Eric GROUSSARD 


Ce programme compte trois parties : 


BIORYTHME 

Entrez votre date de naissance et la date du jour ; vous obtiendrez votre 
position sur les cycles intellectuel (33 jours), émotionnel (28 jours) et 
physique (23 jours) : haut, bas ou critique. Les droites verticales en 
pointillés indiquent la portion des 5, 10, 15, 20, 25® et derniers jours 
du mois, et la droite, en trait plein, le jour demandé. 


ZODIAQUE 

Entrez votre date de naissance, et vous saurez votre signe du zodia¬ 
que chinois (1 signe par année) et votre signe du zodiaque français avec 
les décans (attention : les limites des différents signes peuvent varier 
selon les sources). 


CALENDRIER PERPETUEL 

Entrez votre date : vous obtiendrez le jour de la semaine, le rang du 
jour dans l'année, le nombre de jours restants et le calendrier du mois. 
Valable pour les années 0 à 5000 (donc entrez 1985 et non 85) et 
tenant compte du passage du calendrier julien au calendrier grégorien. 
A la question "suite ?", répondre* par 0, 1 ou 2 selon les explications 
du sommaire. 

1 REH VIE PRATIQUE 

2 REH COPYRIGHT ERIC GROUSSARD 

10 HODE IrBORDER lîINK 0,lîINK l,24îINK 2,20;INK 3,6 
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Il 


FIN :0'‘ 


20 PRINT 
30 PRINT 
40 PRINT " 

50 PRINT 
60 PRINT "SUITE 
70 PRINT " 

80 PRINT " 

% PRINT 
100 PRINT " 

110 PRINT 


BIORYTHMES il" 


:Û SOMMAIRE* 

1 AUTRE PERSONNE" 

2 AUTRE DATE" 

SIBNES DU ZODIAQUE !2" 


120 PRINT "SUITE îO SOMMAIRE" 

130 PRINT " 1 AUTRE PERSONNE" 

140 PRINT 

150 PRINT " CALENDRIER PERPETUEL :3" 


160 PRINT 


170 PRINT "SUITE :0 SOMMAIRE" 
180 PRINT " 1 AUTRE DATE" 

190 PRINT 


200 INPüT 5 
210 CLS 

220 IF 3=0 THEN END 


230 ON S GOTO 270.1290,1940 

240 REM.. 

250 REM BIORYTHMES 

260 REM.. 

270 PRINT "DATE DE NAISSANCE !" 

280 INPUT "J=";J1 
290 INPUT "M=";M1 
300 INPUT "A=";A1 
310 IF S=2 THEN 1290 
320 PRINT "DATE ACTUELLE 
350 INPUT "J=“;J2 
340 INPUT •'H=‘:M2 
350 INPUT "A="!A2 
360 CLS 

370 PRINT "DATE DE NAISSANCE !";JI; 
380 LOCATE 23,l!PRINT "/"jMl; 

390 LOCATE 27,IîPRINT "/"îAl 
400 PRINT "DATE ACTUELLE !"îJ2; 
410 LOCATE 23,2!PRINT "/"!M2; 

420 LOCATE 27,2:PRINT "/"|A2 
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430 V=J2 

440 ON MI GOSUB 2360,2370,2300.2390,2400.2410,2420,2430.2440,2450.2460.24 
70 

450 J1=J1+W 

460 ON M2 GOSUB 2360,2370,2380,2390,2400,2410.2420.2430.2440,2450.2460,24 
70 

470 J2=J2+I4 

4B0 IF fi2<100 ÎHEN A3=1900+fl2 ELSE A3=A2 

490 A=ÎNT(365.25MA2-A1))+J2-Jî+1 

500 IF A2/4=lNT(A2/4) THEN 510 ELSE 540 

510 IF J2>59 THEN 520 ELSE 540 

520 IF I12>2 THEN A=A+1 

530 IF A1<20ÛO AND A2>1999 THEN A=A-1 

540 PR INT "A6E='';Aî "JOURS" 

550 )(=A HOD 33:Y=A HDD 28:2=A HOD 23 
560 PRINT "BIORYTHME INTELLECTUEL=";)f; 

570 LDCATE 28.4 

580 IF m THEN 590 ELSE 620 

590 IF );<16 THEN PRINT "!HAUT"îG0T0 630 

600 IF t>\7 THEN 610 ELSE 620 

610 IF .'«32 THEN PRINT ":BAS"îGOTO 630 

620 PRINT “îCRITIQUE" 

630 PEN 3:PRINT "BIORYTHME EMOTIONNEL =";Y! 

640 LOCATE 28,5 

650 IF Y>1 THEN 660 ELSE 690 

660 IF Y<13 THEN PRINT "!HAUT"i60TO 700 

670 IF Y>15 THEN 680 ELSE 690 

680 IF Y<27 THEN PRINT ":BAS"î60T0 700 

690 PRINT "iCRITIQUÊ" 

700 PEN 2!PRINT "BIORYTHME PHYSIQUE =":Z; 

710 LOCATE 28,6 

720 IF Z>1 THEN 730 ELSE 760 

730 IF Z<11 THEN PRINT ";HAUT":GQTO 770 

740 IF Z>12 THEN 750 ELSE 760 

750 IF Z<22 THEN PRINT ";BAS":GOTO 770 

760 PRINT "jCRITIQUE" 

770 D=(X-V+34)M0D 33:E=(Y“V+29)H0D 28; F=IZ-V+24)M0D 23 

780 IF M2=2 THEN 790 ELSE 810 

790 IF A2/4=INT(A2/4) THEN P=29:60T0 830 

800 P=20!GOTO 830 

810 IF M2=4 DR M2=6 OR H2=9 OR M2=ll THEN P=30îG0T0 830 
820 P=31 
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830 C=1 

840 IF D<8 THEN I=16«D+136 

350 IF D=8 THEN PLOT l&*C-31,248,l!DRAH 16»C-15.264,1;DRAW U»C-7.264.lîD 

RAW 16*C+1.256,1:60T0 900 

060 IF D>B AND D<25 THEN I=400-I6»D 

870 IF D=25 THEN PLOT 16*0-31,16,IsDRAW 16*0-23,8,IsDRAW 16*0-15,8.lîGOTO 
900 

880 IF D>25 THEN I=16*D-392 

890 IF 0=1 THEN PLOT 1,1,1 ELSE DRAW 16*0-15.1,1 

900 C=0*lîD=D+l 

910 IF D=34 THEN D=1 

920 IF OP THEN 930 ELSE 840 

930 0=1 

940 IF E<8 THEN I=16*E*136 

950 IF E)7 AND E<21 THEN I=360-16*E 

960 IF E>20 THEN I=16*E-312 

970 IF 0=1 THEN PLOT 1,1,3 ELSE DRAW 16*0-15,1,3 

980 C=C+l!E=E+l 

990 IF E=29 THEN E=1 

1000 IF OP THEN 1010 ELSE 940 

1010 C=1 

1020 IF F<6 THEN I=16*F+136 

1030 IF F>5 AND F<18 THEN I=320-16*F 

1040 IF F>17 THEN I=I6*F-232 

1050 IF 0=1 THEN PLOT 1,1,2 ELSE DRAW 16*0-15.1.2 

1060 IF F=5 THEN DRAW 16*0-3,228,2 

1070 IF F=17 THEN DRAW 16*0-11,44,2;0RAW 16*0+1.56.2 

1080 0=0+1!F=F+1 

1090 IF F=24 THEN F=l 

1100 IF OP THEN 1110 ELSE 1020 

1110 FOR 1=1 TO 640 

1120 PLOT I,152,lîPL0T 1,120,1 

1130 NEXT I 

1140 FOR 1=1 TO 272 

1150 IF (I MOD 32X16 THEN PLOT 65,I,l!PL0T 145,I,l!PL0T 225,I,l!PL0T 305 

,I,I!PL0T 385,I,1:PL0T 16*P-15,I.l 

1160 PLOT 16*0-15,1,1 

1170 NEXT I 

IIBO PEN lîINK 1,24 

1190 LOCATE 33,13;PRINT "HAUT" 

1200 LOCATE 33,17!PRINT "CRITIQUE" 

1210 LOCATE 33,2l!PRINT "BAS* 
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1220 LOCflTE l,7îPRINT îPRINT K$îA3 
1230 LOCATE 25,8:INPUT “SUITE 0,l,2“;S 
1240 CLS 

1250 ON S+1 GOTO 10,270,320 

1260 REli. 

1270 m ZODIAQUE CHINOIS 

1280 REM. 

1290 REM 

1310 INPUT "DATE DE NAISSANCE ;J=",J!L0CATE 25.15INPUT “M=“.MîLOCAT£ 30.1 
îINPUT "A=",A 

1320 IF A>1900 THEN A=A-1900 

1330 IF M=1 THEN K=J 

1340 IF H=2 THEN K=J+31 

1350 IF M>2 THEN K=60 

1360 FOR B=0 TO 85 

1370 READ L 

1380 IF B=A THEN 1400 

1390 NEH B 

1400 H=A MOD 12 

1410 IF K>=L THEN H=H+1 

1420 IF H=0 THEN CI=*DU SANGLIER" 

1430 IF H=1 THEN CI="DU RAT" 

1440 IF H=2 THEN CI="DU BUFFLE" 

1450 IF H=3 THEN C$="DU TIGRE" 

1460 IF H=4 THEN CI="DU CHAT" 

1470 IF H=5 THEN CI="DU DRAGON" 

1480 IF H=6 THEN CI="DU SERPENT" 

1490 IF H=7 THEN C$="DU CHEVAL" 

1500 IF H=8 THEN C$="DE LA CHEVRE" 

1510 IF H=9 THEN C$="DU SINGE" 

1520 IF H=I0 THEN C$="DU COQ" 

1530 IF H=1I THEN C$="DU CHIEN* 

1540 LOCATE 11,5!PRINT "ZODIAQUE CHINOIS" 

1550 LOCATE 5,8!PRINT "VOUS ETES DU SIGNE "iC$ 

1560 DATA 31,50,39,29,47,35,25,44,33,22,41,30 
1570 DATA 49.37,26,45,34,23,42,32,51,39,28,47 
1580 DATA 36,24,44,33,23,41,30,48,37,26,45,35 
1590 DATA 24,42,31,50,39,27,46,36,25,44,33,22 
1600 DATA 41,29,48,37,27,45,34,24,43,31,49,39 
1610 DATA 28,46,36,25,44,33,21,40,30,48,37,27 
1620 DATA 46,34,23,42,31,49,38,28,47,36,25,44 
1630 DATA 33,51 
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1640 RÈM. 

1650 REM ZODIAQUE FRANÇAIS 

1660 REM.- 

1670 ON H GOTO 1680,1690,1700,1710,1720,1730,1740.1750,1760,1770,1780.179 
C 

1680 D1=1:D2=11;D3=21;B0T0 1800 
1690 D1=1;D2=11:D3=20:B0T0 1800 
1700 Dl=l!D2=ll:D3=21:60T0 1800 
1710 Dl=l!D2=Il;D3=2l!G0TQ 1800 
1720 D1=2:02=12;D3=22:G0T0 1800 
1730 Dl=l!D2=13!D3=22:G0T0 1800 
1740 D1=2!D2=13!D3=23:G0T0 1800 
1750 D1=3:D2=14!D3=24;G0T0 1800 
1760 D1=2!D2=13!D3=24;G0T0 1800 
1770 D1=4!D2=14:D3=24:GOTO 1800 
1780 D1=2!02=13!D3=23;G0T0 1800 
1790 D1=2!D2=13:D3=22 
1600 IF J<01 THEN NMsGOTO 1840 
1810 !F J<D2 THEN N=2:G0T0 1840 
1820 IF J<D3 THEN N=3!60T0 1840 
1830 N=ll 

1640 N=N+10*MîL=lNT(N/10)!P=N-l0*L!L=L+9!lF L>12 THEN L=L-12 
1850 R$=MID$("BELI£R TAUREAU GEMEAU.^! CANCER LION VIERGE 
BALANCE SCORPION SA6ITTAIRECAPRIC0RNEVERSEAU POISSONS MOH-9.10) 
1860 IF P=1 THEN T$=-ER “ ELSE TI=“EME " 

1870 LOCATE 10,14;PR1NT "ZODIAQUE FRANÇAIS" 

IBBO LOCATE 5.17:PRINT "VOUS ETES "iR#;" DU"!PîT$!"DECAN" 

1690 LOCATE I,25!lNPUT "SUITE=0,r*{S 
1900 CLS:RESTORE:ON S+1 GOTO 10,1310 

1910 REM™-. 

1920 REÎ1 CALENDRIER PERPETUEL 

1930 REM. 

1940 DIM P(12) 

1950 INPUT "DATE INPUT *’ M=",MiINPUT " A=",A 

1960 V=J;Jl=0!P(l)=3l!P(3)=3l!P(4)=30:P(5)=31;P(6)=30:P(7)=31;P(B)=31:P(9 

)=30!P(10)=3l!P(ll)=30;P(12)=31 

1970 IF A/4=INT(A/4) THEN P{2)=29 ELSE P(2)=28 

1980 IF A/400=INT(A/400) AND A>1600 THEN P(2)=28 

l^^PO FOR N=1 TO 12 

2000 IF N=M THEN N=P(N)!GOTO 2030 

2010 J=J*P(N) 

2020 NEXT N 
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2030 IF m THEN 2080 
2040 IF A<1582 THEN 2090 
2050 IF A>15B2 THEN 2100 
2060 IF J<=277 THEN 2090 
2070 IF J)=2B8 THEN 2100 

2080 LOCATE 9,I2jPRINT “CE JOUR N'EHSTE PAS.“:80T0 2340 
2090 E=4:G0T0 2110 
210C E=1 

2110 FOR 1=17 TO 50 
2120 IF I/4=INT(I/4) THEN 2140 
2130 IF A>IM00 THEN E=E-1 ELBE 2150 
2140 NEH I 

2150 IF P(2)=29 THEN E=E-1 
2160 B=INT(1.25*A)+J+E:£l=B MDD 7 


2170 ON M BOSUB 2360,2370.2380.2390,2400,2410,2420.2430.2440,2450,2460.24 
70 

2180 W=0;IF V=1 THEN T$=‘'ER " ELSE T$="‘' 

2190 IP J=1 THEN S$="ER " ELSE SI=“EME “ 

2200 Cl=MIDf(''DIMANCHELUNDI MARDI MERCREDIJEüDI VENDREDISAMEDI ",8 


♦B+1,8/ 

2210 CLSîLOCATE 5,2iPRîNT "LE'’;ViT$;KI;A?''EST UN ";CI 
2220 LOCATE 5.4;PRINT “C'EST L£";JiS$;“JOUR DE L'ANNEE" 
2230 LOCATE 5.6!PRINT "IL RESTE";337+P(2)-J!"JOURS" 

2240 LOCATE 13.9;PRINT Kf;" ";A 

2250 LOCATE lO.lüPRINP "L M M J 0 S D" 


2260 IF A=I582 AND M=10 THEN LOCATE 10.13:PRINT "1 2 3 4 15 16 17":L0 
CAiE 10,i5;PRINT "IB 19 20 21 22 23 24";L0CAT£ 10.17;PRINT "25 26 27 28 2 
9 30 31":GOTO 2340 

2270 F=B-(V MOD 7)+8;F=F MOD 7:Y=13:IF F=0 THEN P=7 
2280 FOR 1=1 TO N 

2290 LOCATE 3*FH,Y:IF I=V THEN PEN 3 ELSE PEN 1 
2300 PRINT I 

2310 F=F+1;IF F=B THEN F=l;y=Y+2 
2320 NEU î 
2330 PEN 1 

2340 LOCATE 1,25:INPUT "SUITE O.T’iS 
2350 CLS:ON S+1 GOTO 10,1950 
2360 W=0;KI="JANVIER"!RETURN 
2370 W=3l!KI="FEVRIER":RETURN 
2380 W=59:KI="MARS";RETURN 
2390 W=90;K$="AVRIL";RETURN 
2400 «=120:K$=*MAr';RETüRN 
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2410 W=151:KI=''JUIN''!RETURN 
2420 W=181:K$=''JUILLET'-|RETURN 
2430 W=212jK$=''A0UT":RErURN 
2440 W=243!K$=“SEPT£MBRE‘'!RETURN 
2450 W=2?3!K$='‘0CT0BRE"!RETURN 
2460 W=3Û4:K$=‘'N0VEMBRE“jRETURN 
2470 W=334:K$='‘DECEMBRE":RETURN 
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LASER'S BYKE 



Stéphane CLOIREC 


C e programme est inspiré du film "TRON" de Walt Disney. Il est 
basé sur le célèbre duel à moto entre le héros et le M.C.P. 
(comprenez : Master Control Program, le software qui dirige l'ordina* 
teur des jeux). 

Entièrement en Basic, il permet de jouer à deux ou tout seul et comprend 
quatre arènes différentes. On peut utiliser indifféremment le clavier ou 
les joysticks (pour plus d'explication, tapez le programme et lisez atten¬ 
tivement les instructions). 

Il vous faudra tout d'abord rentrer le Loader, le premier petit programme, 
le sauver sur cassette ; puis tapez le listing principal (les deux program¬ 
mes peuvent être sauvés sous n'importe quel nom). 


STRUCTURE DU JEU 
120 : 

Test jeu à 1 joueur/Jeu à 2 joueurs. 

160-290 : 

Routine principale à deux joueurs (test de clavier, de collision, fuel...). 
330-500 : 

Fin de jeu. 

540-630 : 

Nouvelle partie. 

670-790 : 

Routine principale à un joueur (cf. 160-290). 

830-880 : 

Fin de jeu. 

920-1000 : 

Nouvelle partie. 

1040-1080 : 
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Place la "Warp-Box" à l'écran. 

1120-1160 : 

Présentation, instructions. 

1680-1880 : 

Sous-programmes utilisés par instructions. 
1920-2030 : 

Menu principal, choix du type de jeu. 
2070-2140 : 

Les différentes arènes du duel. 

2180-2280 : 

Initialisation (ink, coordonnées, enveloppes,... ). 
2320-2430 : 

Arène libre. 

2470-2540 : 

Arène labyrinthe. 

2580-2620 : 

Arène aléatoire. 

2660-2680 : 

Arène de la mort. 

2720-2940 : 

Routines sonores. 


Programme de présentation 

40 MODE 0;INK 0,0;BORDER 0:P£N l:PAPt.R ô 
50 INK I,2!L0CflTE 2,5;PRINT''«» LASER-BYKE 

60 ORIGIN 20.345:DRAWR 600,0,1;DRAWR 0,-37,1;DRAWR -600,0,lîDRAWR 0.37,1 
70 INK 2.6;PEN 2:L0CATE 7,ll!PRINT CHR$(I64)î* 1985" 

80 INK 3,1B:PEN 3;LDCATE 2,I4!PRINT’'Steohane CLOIREC 
90 ORIBIN 34,169;DRA«R 504,0,3 

100 INK 4,8;PEN 4:L0CAT£ l,2i;PRINT‘'Charaefflent en cours,* 

110 SPEED INK 255,255 

120 FOR i=l TO SOOiCALL Î(BD23:CALL iBD22iNEn 
130 SPEED INK 15,15iORIGIN 0,0 
140 RESTORE 170 

150 READ note,dur:IF note=-l THEN 160 ELSE SOUND 4,note,dur,15;G0T0 150 
160 RUN"byker 

170 DATA 478,50,319,50,358,13,379,13,426,13,239,60,319,60,358,13,379,13,4 
26,13,239.60,319,60,353,13,379,13,3:8.13,426,70,-1,0 


Programme principal 

60 ' 

90 GOSUB 2150; ' initialisations 

100 BOSÜB 1100; ' instructions 
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110 BOSUB 1890: ' menu orincipal 
120 ON OP GOTO 160,670 
130 ' 

140 ' routine principale pour jeu a deux joueurs 
150 ' 


160 PLOT xb,yb,l;PLOT xr,yr,2 
170 SOUND 1,100,1.7,1,1 
180 IF INKEY(bd)=0 THEN xbl=l:vbl=0 
190 IF INi(EY(bh)=0 THEN xbl=0:ybl=l 
200 IF INKEY(rd)=0 THEN xrl=l!Yrl=0 
210 IF INKEY(rh)=0 THEN xrl=0;vrl=l 
220 xb=xb+4#xbl;vb=vb+vbl*2 


ELSE IF INK£Y(ba)=0 THEN xbl=-l:vbl=0 
ELSE IF INKEY{bb)=0 THEN xbl=ô;ybl=-l 
ELSE IF INf(EY(ra)=0 THEN xrl=-l:vrl=0 
ELSE IF INKEY(rb)=0 THEN xrl=0;vrl=-l 


230 xr=xr+4»xrl:vr=vr+yrU2 

240 fuel=Fuel-l!lF Fuel=0 THEN GOSUB 2830:60SUB 27BO:GOTO 300 
250 PLOT 528,366.7:PRINT USIN5“m'';fuel; 

260 bcrash=TEST(xb,yb):rcra5h=TEST(xr,vr) 

270 IF bcra5h=4 OR rcrash=4 THEN 290 ELSE IF bcrashOO AND rcrashOO THEN 


GOSUB 2910;G0SUB 2B30:G0SUB 2780:G0T0 300 

280 IF bcrashOO OR rcrashOO THEN GOSUB 2910; GOSUB 2830: GOSUB 2780; GOTO 
410 

290 GOTO 160 
300 ‘ 

310 ' Mort des deux joueurs ou panne d'essence 
320 ' 

330 MODE 1:L0CATE 12,3:PRINT"TR0N'S LASER-BYKES":P£N 2;L0CATE 12,4;PRINT‘' 


340 PEN 3:L0CATE 1,7;PRINT" Champions, vous vous etes bien battus." 

350 PRINT;PRINT" Mais votre duel s'est termine d'une maniéré assez dec 
evante. Le M.C.P. va vous dire ce qu'il en pense,..*;PEN 1 
360 IF fuel=0 THEN PRINT.'PRINT" Vous n'avez oas eu assez de Fuel pour me 
ner a terme ce combat qui devait etre mortel, Vous ne mentez donc pas qu 
'on vous laisse la vie sauve !!î":G0T0 380 

370 PRINT;PRINT" Vous avez ete assez stupides pour vous exterminer mutuel 
lement. Votre place n' est pas dans cette arene, mais aux minesde siliciu 
« de Soracom-citv ! ! !" 

380 PEN 3;L0CATE 1,18:PRINT" Neanmoins, dans sa grande maonan imite, le H, 
C.P. vous laisse une chance de vousrattrapper,* 

390 LOCATE 6,22;PEN 2:PRINT"Ne la laisser pas échapper II!" 

400 GOTO 540 
410 ' 

420 ' Mort d'une des deux laser-bvkes 
430 ' 
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440 MODE IsLOCATE 12,3:PRINT"TR0N'S LASER"BYKES"!PEN 2!L0CATE I2,4!PRINT'’ 


450 PEN 3iL0CATE l,7:PRINT'' Champions, vous vous etes bien battus." 

460 IF bcrashOO THEN coul$="rouge":rscore=r5core+l ELSE coull="bleuB"!b5 
core=b5core+l 

470 PRINT.’PRINT" Mais le conducteur de la laser-bvke "coull" s'est re 
vele le plus fort. C'est";" donc a lui que le H.C.P. accorde une victo 
ire en plus." 

480 LOCATE 17,15îPEN 1 jPRINT"SC0RE"jL0CATE 17,16;PEN 2iPRINT"=====":PEN 3 

490 LOCATE 10.19!PEN l!PRINT"Joueur Bleu."üPEN 2!PRINT bscore 

500 LOCATE 10,21:PEN 2:PRlNT"Joueur Rouge."|;PEN lîPRINT rscore 

510 ' 

520 ' On rejoue ? 

530 ' 

540 LOCATE I,24;PEN 1:PRINT" Aopuvez sur la touche 'ENTER'...“!al=INKE 

YlîIF a$=""THEN 540 

550 IF al<>CHRI(13) THEN 540 

560 MODE lîFOR n=-15 TO ISsSOUND 4,ABS(n)»10.5,15,0,0,ABS(n)îNE)(T!L0CATE 
12.3!PRINT"TR0N'S LASER-BYKES":PEN 2!L0CATE 12.4:PR1NT"======“™======= 

ir 

570 PEN lîLOCATE 7,7;PRINT"Vouiez-vous rejouer ? ( 0 / N )" 

580 a$=lNkEY$;a$=UPPER${a$):IF a$<>"0" AND a$<>*N" THEN 580 
590 IF a$="N"TH£N 110 

600 LOCATE 7,9!PRINT"0n change l'arene ? f 0 / N )" 

610 a$=INKEY$:a$=UPPER$(a$)!lF alO'O" AND a$<>"N" THEN 610 
620 IF a$="N"THEN 60SUB 215a!60SUB 2130:GOTO 120 
630 GOSUB 2150:GOSUB 2070!G0T0 120 
640 ' 

650 ' routine principale pour jeu a un joueur 
660 ' 

670 EIîAFTER temps GOSUB 1010 

680 PLOT xb,vb,l 

690 SOUND 1,100,1,7,1,1 

700 IF INKEY(bd)=0 THEN xbl=l:vbl=0 ELSE IF INKEY(bQ)=0 THEN xbl=-l!vbl=0 
710 IF INKEY(bh)=Û THEN xbl=0:vbl=l ELSE IF INKEY(bb)=0 THEN xbl=0:vbl=-l 
720 xb=xb+4*xblivb=vb+vbl*2 

730 fuBl=fuel-l;IF fuel=0 THEN GOSUB 2830!G0SUB 2780:G0T0 830 
740 PLOT 52B,366.7;PRINT USING"lllt":fuel! 

750 IF xb<=32*x AND xb>32*(x-l) AND vb<=16*v AND yb>16*(v-l)THEN vicMiGO 
SUB 2870:G0SUB 2780:6070 830 
760 bcrash=TEST(xb,vD) 
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770 IF bcrash=4 THEN 680 ELSE IF bcrashOO THEN GOSUB 2910SG0SUB 2B30;G0S 
UB 2780;GOTO 830 

760 xin=INT(RNDH14)+14îVfli=INT(RND*320)+6!PLQT xfli,Yffl,12 
790 GOTO 680 
800 ' 

810 ' Fin de jeu 
820 ' ^ 

830 MODE lîDIîLOCATE 10,3îPEN 2îPRINT"."iLOCATE 10,4 

!PRINT''î";:PEN IsPRINT" TRON'S LASER-BYKES “iiPEN ZiPRINT-l'-iLOCATE 10.Ss 
PRINT"." 

840 LOCATE 1,8:PEN 35PRINT'' Vous avez essaye de vous mesurer avec le Mas 
ter Control Program, mais celui- ci n'est jamais a court de ressources . 

Il 

850 IF fuel=0 THEN LOCATE 1,12:PRINT" Vous n’avez meme oas eu assez de f 
uel pour l'inquieter !!!'‘!tefflps=tefflps-I00!60T0 920 
860 IF vic=l THEN LOCATE l,l2!PRINT"Pourtant, vous avez moinentaneiiient reu 
ssiâ le mettre en déroute../!PRINT"Vou5 pouvez, bien-sur, rester sur cet 
te victoire.''!tefflps=tei!ips+250:b5core=bscore+l;G0T0 920 
870 LOCATE 1,I2!PRINT" Le crash final dont vous avez ete la victime eta 
it inévitable ! tôt ou tard le M.C.P. vous aurait vaincu..."ste(iio5=tenps 
-100 

880 IF vic=0 THEN (iiscore=mscore+l 
890 ' 

900 ' On rejoue ? 

910 ■ 

920 LOCATE l,18îPEN IrPRINT" Neanmoins, voulez-vous refaire une un 
e partie contre moi ? I 0 / N )" 

930 a$=INKEY$;al=UPPER$(al);IF al<>"0" AND a$<>“N'' THEN 930 
940 IF a$="N''THEN GOTO 110 

950 LOCATE 15,2l!PEN 2!PRINT''HA1 HA! HA! ..."iFOR i=l TO SOOîNEXT 
960 LOCATE 4,23;PEN l!PRINT"Qn change l'arene ? ( 0 / N )" 

970 al=INKEY$îal=UPPERI(a$)!lF al<>''0" AND a$<>“N'' THEN 970 
980 GOSUB 2150 

990 IF al=‘'N* THEN GOSUB 2130îG0T0 120 
1000 GOSUB 2070:GOTO 120 
1010 ' 

1020 ' place le but a atteindre 
1030 ' 

1040 TA60FF;x=INT (RND»lB)+2;y=INT (RND*17)+7!L0CATE x.v:PEN 13:PRINT CHR 
$(181): TAS 
1050 v=26-y 
1060 GOSUB 2760 
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1070 DI 
lOBO RETÜRN 
I0?0 ' 

1100 ' instructions 
1110 ■ 

1120 ^!0DE 1: BORDER 0 
1130 LOCflTE 10,1:PEN 2 

1140 PRINT".“iBOSUB 2800 

I15C LOCATE 10.2:PRINT'‘!"iB0SUB 2800 

1140 lOCATE 10,3:PRINT"."sGOSUB 2800 

1170 PEN 1:CHI="ÎR0N'S lASER-BYKES" 

1180 SOUND 7,60,150,15,5,0 
ll'îO FOR J=1 TO 18 

1200 LOCATE 4I-j,2!pRINT LEFTIIchl,j} 

1210 NEn 

1220 FOR >=22 TO 12 STEP -1 
1230 LOCATE j.2:PRINT chl 
1240 NEXT j 

1250 FOR j=40 TO 30 STEP -1 
1260 LOCATE j.2!pRINT‘ ” 

1270 NEXT , 

1280 LOCATE 3I,2!PEN 2!PRINT‘'!"iBOSUB 2800 
12^0 chl="Instruction5"!60SUB 1680 
1300 60SUB 1750 

1310 ^EN 3;LDCATE 4,B:PRINT"Bienvenue a vous, Guerriers Ou Futur!";''Vous 
venez oe penetrer dans le monde duret impitovable des jeux videos, ou seu 
Isles plus forts, les plus rapides oeuventesoerer survivre oueloue temps. 

U 

• • 

1320 LOCATE 4,14;PRINT"Vou5 avez ete choisis pour Darticioer''i"a ce duel 
par le ilaster Control ProaraniIÎI.C.P. pour les intimesJLe combat ne seter 
(ninera que par la mort d’ un des deuxcombattants." 

1330 PEN 2!L0CATE 4,20!PRINT"InutilB de fuir;";;PEN 3:PRINT"Une fois le p 
rcoramme'';"enoage, le duel est inévitable.Vos sortssont maintenant lies a 
celui du M.C.P." 

1340 G0SU6 1820 
1350 GOSUB 2720 

1360 ch$="But du DuePiGOSUB 1680 
1370 BOSUB 1740 
1380 PEN 3 

1390 LOCATE 1,8:PRINT" Vous allez etre places aux commandesde nouveaux 
engins-tuBunles LASER-BYKESCe sont, en quelque sorte, des motos quilais 
sent derrière elles un sillage laserdont le contact est mortel." 
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1400 PRINTîPRINT" Votre but sera , bien evidemflient, défaire 'crasher' 
l'autre conducteur sansoour autant en faire de «eiiie !“ 

1410 PRINTîPRINT" De plus, pour etre en accord avec iadecision du Haut 
CoüiiBissâire des Jeux,leM.C.P.a limite la consommation de fuel a999 Meoac 
redits au départ." 

1420 GOSUB 1820 
1430 GOSUB 2720 

1440 chf=''Variantes'':G0SUB UBOsGOSUB 1740 

1450 PEN 3;L0CATE I. 81 PRINT* Vous pouvez, bien-entendu, combattrea deu 
X joueurs , mais vous avez aussi laoossibilite oe vous re-entrainer cont 
''ele fl.C.P." 

1460 LOCATE 1,13:PR1NT" - Dans le Duel a deiix, chacun diriaeune Laser- 

Bvke." 

1470 PRINTîPRINT" - Contre le fl.C.P. s Celui-ci envoiedes mines ou'il 
faut a tout prix eviterjusou'a l'apparition du ";;PEN 2.’PRINT"’WARP-BOK' 

"isPEN 3!PRINT" , Qui";"periet,si on l'atteint, de s'ecnaooer del'arene." 

• 

J 

1480 PRINT" (Vous utiliserez la Laser-Bvke Bleue)" 

1490 GOSUB 1820 
1500 GOSUB 2720 

1510 ch$=''Cc«fflandes"!B0SUB làSOîGOSUB 1740 
1520 PEN 3;L0CATE 1.8 

1530 PRINT" Voici les commandes dirigeant les deuxLaser-Bvkes 

1540 PRINTîPEN l!PRINT''La 5 er-Bvks Bleue"!:PEN 25PRINT" Laser-Bvke 

Rouoe* 

155Ô PEN 3JPRINT" A 4 

I ! I 

I \ I 

t fl 
I 

1560 PRINT" K -0- C 2 -0- 3" 

1570 PRINT" ! I ! 

I 7 

I L 

1 " 

1580 GOSUB 1820 
1590 GOSUB 2720 

1600 chf="Arsnes de Cofflbâf'sGOSUB 1680:GOSUB 1740 
1610 PEN SiLOCATE 1 , 8 :PRINT" Enfin, le Duel peut se dérouler suri‘une 
des quatre arenes , de difficultesdifferentes, que possédé le M.P.C." 
1620 LOCATE I,13:PEN hPRINT" Rappelez-vous toujours que TRON luimeme 
a fini par etre vaincu par le M.P.C" 

1630 PEN 3 :PRINT"Au 55 i,n'e 5 perez pas de victoires faciles" 

1640 LOCATE 8,19;PEN 2!PRINT"Nean«oin£, Bonne Chance.,," 

1650 GOSUB 1820 
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1660 RETURN 
1670 ■ 

1680 P£N 1 

1690 FOR i=l TO LEN(chl)îLOCATE i,5 

1700 PRINT MID$(chr,i,l)!SOUND 2,INT(RND*957),5,15 

1710 FOR at=l TO 50iNEXT at 

1720 NEXT i 

1730 RETURN 

1740 ' 

1750 PEN 2 

1760 FOR i=l TQ LEN(chl)îLOCATE i,6 

1770 PRINT "=''!S0UND 2.INT(RND*?57).5,15 

1780 FOR at=l TO 50;NEn at 

1790 NEXT i 

1800 RETURN 

1810 • 

1820 PEN l!chl="{AoDuvB 2 sur une touche!" 

1830 FOR 1=1 TO LEN(chl):LOCATE i*8,24 

1840 PRINT NIDI(ch$,i,l);SOUND 2.INT(RND*957).5.15 

1850 FOR ât=l TO 50:NEXT at 

1860 NEXT i 

1870 CALL m\B 

1880 RETURN 

1890 ' 

1900 ' Menu principal 
1910 ' 

1920 MODE 1 

1930 GOBUB 2150 

1940 PEN liPAPER OiBORDER 0 

1950 bscore=0:r5CQre=0:i85Core=0:tefflps=10û0 

1960 FOR n=-15 TO 15SS0UND 4,ABS(n)M0,5,l5,0,0,ABS(n)!NEXT 

1970 LOCATE 10,3!PEN 2!PRINT''."îLOCATE 10.4;PRINT"!" 

;;PEN lîPRINT" TRQN'S LASER-BYKES "isPEN 2!PRINT"!"sL0CATE lO.SîPRINT"— 


1980 LOCATE 8,9!PEN 3îPRINT"l Joueur contre Joueur’iLOCATE 8,ll!PRINT"2 
Joueur contre le M.C.P."iLOCATE 8,13:PRINT''3 Arrêt du jeu" 

1990 PEN liLOCATE l,16jPRINT"Choisissez votre option; (1.2 ou 3) :"ioo=VA 
KINKEYDjIF op<1 or op>3 THEN LOCATE 38,16:PRINT " "lOOTO 1990 
2000 IF op=3 THEN PEN 1;M0DE 2;END 

2010 LOCATE 4,21:PEN 2:PRINT"CUvier ou Jovstick ? ( C / J ) :";reol=UPP 
ER$(INKEYI):IF REP$<>"C"AND REPI<>"J"THEN LOCATE 3B.21;PRINT" "tGOTO 201 
Û 
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2020 IF REPI=“C''THEN rd=5!rq=I4îrh=20!rb=l3!bd=62!bQ=63ibh=69!bb=71îGOTO 
2070 

2030 bd=7j:bg=74!bh=72:bb=73!rd=5Iîra=50!rh=48!rb=49 
2040 ' 

2050 ' Choix de 1' arene de conoat 
2060 '' 

2070 CLSiFOR n=-15 TO 15:SOUND 4,ABS(n)M0,5,15,0,ô,ABS(n):NEXT 

2030 LOCATE IÔ,3;PEN 2:PRINT''."rLDCATE lOJiPRINT"!" 

îjPEN lîPRINÎ" ÎRON'S LASER-BYKES “sîPEN.2!PRINT''i''!L0CATE lO.SsPRINT"— 


2090 LOCATE l,8:PEN lîPRINT "Les differentes Arenes de Combat 
2100 LOCATE 1,9 j PRINT “=================================='■ 

2110 LOCATE 3,12!PEN 3îPRINT"l- Arene ouverte"îLOCATE 3,14!PRINT"2- Are 
ne-labvrinthe":LOCATE 3,I6:PRINT"3- Arene aleatoire*!LOCATE 3,18:PRINT"4 
- Arene de la Mort" 

2120 PEN lîLOCATE l,21:PRINT"Choi5i55e2 votre ootion (1,2,3 ou 4) ;":lab= 
VAL(INKEY$)îIF lab<l OR lab>4 THEN LOCATE 39,2l;PRINT" ":60T0 2120 
2130 ON lâb GOSUB 2290,2440,2550,2630 
2140 PEN lîRETURN 
2150 ’ 


2160 ' initialisation 
2170 ' 

2180 INK O.OîINK 1.2!lNK 2.6!lNK 3,18;INK 4.13:INK 5,lIîINK O.lSîINK 7.24 
:INK 8,2:INK 9,6!lNK 10,8!lNK 11.4 îINK 12.20JINK 13,19,16 
2190 xb=270îvb=20;xr=370!vr=310 


2200 xrl=0:xbl=0!vrl=-l:vbl=l 


2210 f'jel=999;vic=0 

2220 ENV 1,9,1,1,1,0,5,9,-1,2!ENT 1,5,1,1,10.-1,1.10.1.1.10.-1,1,5,1.1 
2230 ENV 2,15,-1,13 

2240 ENV 3,15,-l,30iENT -3,10,10,1,10.-12,1 


2250 ENV 4,15,-1.4 
2260 ENV 5,30,2,5 
2270 RETURN 


CMU A K -1 i.CMU S 1*^ -1 lO'i^NT 1 30 in 1 


2290 ' 

2300 ' Arene ouverte 
2310 ' 

2320 MODE 0 

2330 DRAWR 0,330,4!ÛRAWR 639,0,4{DRAWR 0,-330,4jDRAHR -639,0,4 
2340 PLOT B,4,5!DRAWR 0,322,5!DRAWR 622.0,5:DRAWR 0.-322,5:DRAWR -622,0,5 
2350 TAGiPLOT 0,399 îDRAHR 639,0!DRAWR 0,-50iDRAWR -639,0îDRAWR O.SOîPLOT 
Û,374!DRA«R 639.0SPL0T 304,374!DRANR 0.25 
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2360 PLOT 8,392,8!PRINT"BL£U...“;!PL0T 3i6,3Ç2.9!PRINT"PQU6E... 

2370 PLOT 8.366.6!PRINT"FLI£L RESTANT 
2380 ON DO GOTO 23^0.2410 

2390 PLOT 8.392,8jPRÎNT"BLEü...‘'î!PL 0T 316,3?2.9:PRINr"R0UG£. 

2400 PLOT 234.392.«?:PR]NT U5lN6“l»#’‘îbscDre!;PLOT 574,392.8;PRINT üSINü’'P 
“;rscQr?;;GOTO 2430 

2410 PLOT 234.392,9!PRINT üSIN6'’4i"il)scQre!:PLOT 574.392.8!PRINT USING"i# 


"iffiacore; 

2420 PLOT 8,392,3:PRINT"BL£U...”i!PL0T 
2430 RETURN 
2440 ' 

2450 ' Arene-labvrinthe 


316,392.9!PRINT“N,C.P... 


2460 • 

2470 GOSl'B 2290 
2480 PEN 11 

2490 carll=CHRIil50)+CHR$(156) 

2500 ca^2$=CHRI(147)4CHR$(153) 

2510 TA8ÜFF 

2520 FOR 1=2 TO 18 STEP 4îF0R j=7 TO 22 STEP TîLOCATE i.jîPRINT carlljLOC 

ATE i.i+lîFRlNT câr2$sNEn j.i 

2530 îAG 

2540 RETURN 

2550 ' 


2560 ’ Arene aléatoire 
2570 

2580 60SÜB 2290 
2590 PEN 10 
2600 carIf=CHRI{238) 

2610 TAGOFF.'FOR 1=1 TO 70:;<=ÎNT(RNDM3)+2îv=INT(RND^17;*7îL0CATE x.vsPRIN 
T carlIrNEU i;TA6 
2620 RETURN 
2630 • 

2640 ' Arene de la Mort 
2650 ' 

2660 60SUB 2290 

2670 FOR 1=1 TO 20îx=INT(RND*590)+2ô;3=INT(RND*590)+20!v=INT{RND* 295)+20! 
b=INT(RND*295)+2Ô!PL0T x,y,12:DRAH a,b.l2:N£.U 1 
2675 TAGOFFîFOR 1=1 TO 19îL0CATE 10,i+5:PRINT'' “îNEXTîTAG 
2680 RETURN 

2689 RETURN 

2690 ' 

2700 ’ sons 
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2710 ‘ 

2720 MODE 1 

2730 FOR n=-15 TO ISîSOUND 4,ABS(n)M0.5,15,0.0,ABS(nJ!NE)(T 

2740 LOCATE 10,1:PEN 2ÎPRINT".“tLOCATE 10,2!PRINT‘'!“ 

îîPEN lîPRlNT" TRON'S LASER-6YKES ";;PEM 2 iPRINT''!’'jlOCATE 10.3!PRÎNT“— 


2750 RETURN 

2760 FOR n=I TO 20:30UND 4.300+INT(RND*500).SiMEïT 
2770 RETURN 

27B0 FOR a=l TO 25;CALL î<BC4D!S0üND 135.<a+10.‘*4.0.15.3,3:NEX7 
2^90 RETURN 

2800 SOUND 7,0.60.15.4,0.1 
2810 FOR â=l TO 400:NE.U 
2820 RETURN 
2B30 RESTORE 2850 

'2840 READ note.durjIF note=-l THEN 2860 ELSE SOUND 4.note.dur.0.2!8OT0 29 
40 

2850 DATA 1911,120,1911,80.1911,40,1911.120,1607.80,1703.40.1703.80.1911. 

40,1911,80,2025.40,1911.120.-1,0 

2860 FOR a=l TO 2800:NEXT;RETURN 

2870 RESTORE 2390 

2880 READ note:IF oote=-l THEN 2900 ELSE SOUND 4,not9,20.15.1iGOTO 2880 
2890 DATA 60.53,47,45,60,0,45,47,45,40,53,0,53,47,45,36,40.40.45,45.47,53 
,47,60,-i 

2900 FOR a=l TO 1000!NEXT:RETURN 
2910 SOUND 7,0,195.15.2,0,15 

2920 FOR x=l TO 15:INK Ô,26;F0R 3=1 TO lOiNEXTiINK 0,0:FOR a=I TO 40;NEr 
a.x 

2930 FOR a=l TO 800;NEH 
2940 RETURN 
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LE CHOIX 

D'UNE IMPRIMANTE 



Michel ARCHAMBAULT 


C ^est un outil quasi indispensable pour programmer en Basic dès 
que l'on dépasse le stade du débutant. Une imprimante consti¬ 
tue aussi la finalité de nombreux logiciels utilitaires, exemples cour¬ 
rier (très supérieur à une bonne machine à écrire), éditions de tableaux, 
de fichiers, etc. 

C'est un investissement lourd, mais de longue durée ; une imprimante 
ne se démode pas comme un micro-ordinateur. Donc, deux raisons pour 
ne pas se tromper : mieux vaut économiser encore quelques mois, plutôt 
que d'acquérir un modèle médiocre, générateur d'ennuis de tous genres. 


LES TROIS TECHNOLOGIES D'ECRITURE 
Les thermiques 

Elles utilisent un papier spécial qui bleuit à la température. C'est très 
silencieux, assez rapide, bon marché (la machine, pas le papier), mais 
la qualité d'écriture laisse fort à désirer ; et ce n'est pas photocopiable. 
A déconseiller en micro-informatique domestique. 

A stylos-billes 

Généralement à quatre couleurs (quatre stylos spéciaux montés sur 
barillet). Peu bruyantes, belle écriture mais d'une lenteur désespérante. 
Deux avantages : le prix et la fonction "table traçante", c'est-à-dire 
que grâce à certains ordres spécifiques à la machine (équivalant à PLOT 
et DRAW), on peut dessiner, et en plusieurs couleurs. A ne pas 
confondre avec la "copie d'écran" qui très souvent est impossible. 

A aiguilles 

Ou "matricielles". Jadis hors de prix (d'où l'ancienne vogue des ther¬ 
miques), elles sont aujourd'hui à peine plus chères que les autres. C'est 
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la technologie que nous conseillons : très rapides (100 à 200 caractè¬ 
res par seconde), très belle écriture (sauf certains modèles bon mar¬ 
ché), papier ordinaire, en bandes perforées standard ou en feuille à 
feuille ; au moins quatre tailles de caractères, plus les mêmes en itali¬ 
que ou en écriture "renforcée", possibilité de copie d'écran graphique. 
Bref, des bêtes à tout faire, et en plus de cela, elles sont d'une surpre¬ 
nante robustesse mécanique (sauf une certaine marque). Deux défauts : 
aussi bruyantes qu'une machine à écrire — une seule couleur d'encre, 
le noir. 

Les autres 

Pour usages professionnels très spécifiques, à savoir les imprimantes 
à "marguerites" (analogues aux machines à écrire à boule IBM). Super¬ 
qualité courrier, mais très lentes (==15 CPS = caractères par seconde) 
et caractères limités à ceux de la marguerite installée. Plus chères que 
les matricielles, leurs prix ont tendance à baisser. Réservées exclusi¬ 
vement au traitement de texte classe PRO. 

Les imprimantes à jet d'encre, pour des tables traçantes profession¬ 
nelles. 

Les imprimantes au Laser. Tout pour plaire : qualité, rapidité (environ 
une page en six secondes...), mais encore hors de prix, même en pro. 
Leur principe rappelle celui de la photocopie lancée par XEROX. 

Combien faut-il compter pour une bonne imprimante à aiguilles ? Entre 
3000 et 4500 francs TTC. Certes, c'est cher, mais c'est pour long¬ 
temps. On change de micro-ordinateur, mais on conserve son impri¬ 
mante. La preuve, vous n'en voyez pratiquement pas en occasion ; sauf 
des modèles bas de gamme dont on veut se débarasser. 


COMMENT ÇA MARCHE ? 

L'électronique d'une imprimante rappelle celle d'un micro-ordinateur : 
elle a sa ROM (son langage) et une petite RAM appelée "buffer" ou 
"tampon". Supposons que le micro lui envoie la lettre A majuscule, 
code ASCII 65, donc envoi du nombre 65 en binaire sur un octet. Les 
huit bits en même temps ; il y a donc, dans le câble de liaison, au moins 
huit fils numérotés "DO" à "D7" (voir le schéma de la page A5.2 du 
manuel AMSTRAD), auxquels s'ajoutent un fil de masse plus deux 
autres de"conversation" appelés STROBE et BUSY. Dialogue du genre : 
"Es-tu prête à recevoir ?" "Non, je n'ai pas fini d'imprimer... Vas-y ! 
... Stop ! mon buffer est plein", etc. 

Nous venons de décrire le mode de'transmission "parallèle" (les 8 bits 
ensemble) aussi appelé standard "CENTRONICS" ; nom du fabricant 
d'imprimantes qui l'a lancé. C'est celui utilisé par AMSTRAD et la grande 
majorité des autres micro-ordinateurs domestiques ou professionnels. 
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Toutes les prises côté imprimante respectent cette norme, mais pas 
côté micros, d'où des câbles spécifiques à chaque marque de micros, 
ce qui est complètement stupide et regrettable. 

Il existe aussi la transmission en "série" ou "RS 232 C" (câble à deux 
conducteurs). C'est {heureusement !) beaucoup plus rare et très mal 
normalisé. N'en parlons pas. 

Donc, notre imprimante reçoit pour "A" le nombre 65 : sa ROM va 
commander les aiguilles de la tête d'impression afin qu'elles Impriment 
tel dessin, ici le A. Quelle forme de A ? La forme banale, courante, prise 
par défaut dès la mise sous tension de l'imprimante. C'est la taille 
"RICA", 80 caractères par ligne de 20 cm de long. Voulez-vous d'au¬ 
tres tailles de caractères ? Facile : envoyons d'abord à l'imprimante des 
ordres codés qu'elle va conserver en RAM dans son "buffer de 
consignes". 


LES CODES DE CONSIGNES 

Ils commencent généralement par CHR$(27). Exemple : 

PRINT #8,CHR$(27);"4"; "Vivement Dimanche" 

va provoquer la forme dite en "italique". Les phrases suivantes seront 
aussi en italique. Pour annuler cette consigne, trois méthodes : 

— un code de contre-ordre, ici CHR${27);"5" ; 

— un code qui vide tout le buffer : CHR$(27);" " ; 

— éteindre et rallumer l'imprimante. 

Au point noir (si j'ose dire...), toutes les imprimantes n'ont pas le même 
langage. Celui que nous illustrons est celui des imprimantes Epson, lan¬ 
gage heureusement identique sur bien d'autres marques. C'est une sorte 
de "standard" officieux, un peu comme le Basic de l'AMSTRAD qui 
est considéré comme "standard" parce que très ressemblant au "Basic 
MICROSOFT". Dans notre exemple, il y a le listing du programme Basic 
et ensuite ce que cela donne sur la plupart des imprimantes. 

Dans ce petit programme de démonstration, nous avons illustré quel¬ 
ques fonctions parmi les 53 dont on dispose sur l'EPSON RX80. 

10 -DEMONSTRATION D'IMPRESSIONS SUR EPSON RX-80 
20 PRINT#8, CHR^ (27) : 'Nettoie le Bu-f-f er , sans sa 

ut de 1igne 

30 PRINT#8, "Ecri ture NORMALE -forme P ICA: 80 CARACTE 
RES PAR LIGNE." 

40 PRINT#8:'SAUTE UNE LIGNE BLANCHE 
50 PRINt#8,CHR^ (-27) "W"CHR4 ( 1 ); "CARACTERES LARGES": 
PRINT#8 

60 PRINT#8,CHR:^ (27) "E" ; "ON RENFORCE L 'ECRITUREP 
RINT*»8 

70 PRINT#8,CHR$(27)"W"CHR^<0):'SUPPRIME LE MODE LA 
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RBE.PAS de ; =SAUT D'UNE LIGNE 

80 PRINT#8,"L'ECRITURE RESTE RENFORCEE”: PRINT#8 
90 PRINT#8,CHR^(27)"4";"Aimez-vous 1'ITALIQUE ?" 
100 PRINT#8,CHR^<27) "5”; : 'SUPPRIME L'ITALIQUE 
110 PRINT#8,CHR:t (27) "M"; "PLUS PETIT VOICI LA FORME 
DITE ELITE." 

120 PRINT#8,CHR^(27)”P"CHR^(27)"F":'SUPPRIME ELITE 
ET RENFORCE 

130 PRINT#8,CHR$(15);"LE MODE CONDENSE PERMET DE L 
OSER 132 CARACTERES PAR LIGNE.PRINT#8 
140 PRINT#8,CHR^(18)'SUPPRIME MODE CONDENSE 
150 PRINT#8,CHR$ (27) "W’CHR^d) ;CHR^ (27) "M";CHR^(27 
)"4";CHR^(27)"E";"COMBINONS LES MODES ITALIQUE," 
160 PRINT#B,"LARGE,ELITE ET RENFORCE. 

170 PRINT#8,CHR$(27)"@" 

180 PRINT#8,"aN PEUT AUSSI ";CHR^(27)"-"CHR^(1);"S 
OULIGNER UN MOT " ; CHR$: (27) "-"CHR^ (0) ; " OU UNE PHRAS 
E"-: PRINT#8 

190 PRINT#8,"0U DECALER DES INDICES ET EXPOSANTS:" 
200 PRINT#8, "H"; CHR4:(27) "S"CHR^ ( 1 ) ; "2" ; CHR:^ (27) "T" 

; "O E=MC" ; CHR$: (27) "S"CHR^ (0) ; "2" ; CHR$ (27) "T" : PRI 
NT#8 

210 PRINT#8,"0U FAIRE DES SURCHARGES: XXXXXX " ; CHR:> 
(8) ;CHR^ (8) ; CHR^ (8) ; "-" 

220 PRINT#8:PRINT#8,"CHANGER LA NATIONALITÉ DE CER 
TAINS CODES ASCII :" 

230 C:J="# ^ e C D r > \ '' * ! "+CHR$:(126) 

240 PRINT#8,"POUR USA,FRANCE,ALLEMAGNE,ANGLETERRE, 
DANEMARK,SUEDE,ITALIE,ESPAGNE,JAPON ET NORVEGE" 

250 PRINT#8,"0N A RESPECTIVEMENT POUR " ; C<:: PRINT#8 
260 FOR 1=0 TO 9:PRINT#8,CHR^(27)"R"CHR^(I) ; et 
270 NEXT: PRINT4*8,CHRt (27) : PRINT#8 

280 PRINT#8,"AVEC LE MODE BIT IMAGE C'EST L'IMAGE 
BINAIRE VERTICALE DU NOMBRE REÇU QUI EST IMPRIME.V 
OICI 80 FOIS 255:" 

290 PRINT«8,CHRt(27)" K" CHRt(80);CHRt(0); 

300 FOR N=1 TO 80:PRINT#8,CHRt(255); :NEXT 


Eïcriture NORMALE forme RICA; 80 CARACTERIiS PAR 
LIGNE. 

éTA F< O T ET F< CE S F.. iTA F< CiS CE S î 

oivj FtE:iNjF^of=^c:E: i_ ' eicr i ture:- 


L'ECRITURE RESTE RENFORCEE 
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/iïme^-^'ous J'JT/iLIQUE ? 

PLUS PETIT voie' LA FORME DITE ELITE. 

LE «DDE CONDENSE PERflET 'E LOGER 132 CARACTERES PAR LIGNE. 


COMBINONS LES MODES ITALIQUE 
LARGE,ELITE ET RENFORCE, 


iJM PL-UT AUSSI SOULIGNER U N MUT QU UNE PHRASE 

OU DECALER DES INDICES ET EXPOSANTS^ 

H::20 E=MC=^ 


OU FAIRE DES SURCHARGES; XXXX^K- 


CHANGER LA NATIONAL.ITE DE CERTAINS CODES ASCII* 
POUR USA , FRANCE , Al.LEMAGNE , ANGLETERRE , DANEMARK 

Ej U E D E , I (A L. IE , E S F; A G N E , J A F' O M ET M O F* V E G E ’ 

ON A RESPECTIVEMENT POUR # T @ C 0 f I- \ ' • 


# 

t 

(k 

C 

n 

r 

J 

\ 

»•*% 

% 

1 

'V 

n 

t- 

et 

O 

§ 

J. 

t* 

t 

ç 


•- 

ili 

•• 

If 

■f 

§ 

À 

Cj 

à 

ü 

D 


\ 

d 

B 

£ 



C 

J 

r 

L 


\ 



1 

t 

'V 

# 

t 

e 

(1 

A 


CA 

0 

••••■ 


Si 


if 

'0. 

fk 

A 

Â 

a 

à 

O 

ü 

.4. 

0 

Ü 

# 

r 

@ 

C* 

é 


é 

\ 


ù 

ô 

1 

h 

T 

0 

i 


•• 

-V 

J’ 

vu 

14 


\ 

n 


# 

i- 


i: 

J 

t 

X. 

J 

¥ 



1 

1 


n 

'0 

é 

Æ- 

A 


à 

0 

ü 


0* 

ü 


avec L..E mode BIT IMAGE C’Est 
V E R' TI e A L. E l* U N 01" IB Fv E REÇU QI ! : 
VOICI 80 FOIS 255: 


L'IMAGE BINAIRE 

ES j IN PR J |v|f:'_ 


LA TETE D'IMPRESSION 

Une merveille de micromécanique ! Dans le texte mobile, il y a neuf 
aiguilles disposées les unes au-dessus des autres ; soit neuf pistons 
métalliques commandés par neuf micro-électro-aimants. Elles viennent 
frapper un ruban encreur derrière lequel est le papier. La frappe d'un 

îfse fait en cinq déplacements latéraux de 
la tête de gauche à droite. Cent caractères par seconde, cela fait donc 






500 frappes par seconde ! On reste confondu devant une telle vitesse, 
une telle précision et aussi une telle robustesse. Je connais des petites 
imprimantes qui tournent cinq à six heures par jour depuis un an et demi 
sans toujours la moindre panne... Seul le ruban est changé tous les mois 
(voire tous les deux mois). 


LA QUALITE D'IMPRESSION 

Certains modèles bon marché ont moins de neuf aiguilles, et ie résultat 
n'est pas très joli, surtout en minuscules où il h'y a pas de jambages 
inférieurs. Ainsi, les lettres "f, g, j, p et y" sont "remontées" dans la 
ligne. C'est le cas de l'imprimante rebaptisée par AMSTRAD et de nom¬ 
breux modèles SEIKOSHA. Voilà pourquoi elles sont moins chères... 
Ce n'est absolument pas présentable pour du courrier (avis personnel 
largement partagé). 

Autre point à vérifier : la nature du ruban encreur. Il faut qu'il soit très 
long, type machine à écrire. S'il est présenté en cartouche, attention 
au réapprovisionnement pour les marques peu connus, car chaque fabri¬ 
cant a ses modèles de cartouches... Un bon point pour la GEMINI STAR 
qui utilise une bobine standard. Un zéro pointé pour le modèle étiqueté 
AMSTRAND dont la (chère) cartouche ne contient qu'une boucle de 
50 cm avec passage sur une ampoule d'encre ! Résultats : démarra¬ 
ges avec ruban sec et caractères pâles et une rente en cartouches. Où 
se trouve alors l'économie ? 


LA COMPATIBILITE 

Le cas est rare, mais on rencontre parfois des incompatibilités d'hu¬ 
meur entre tel micro et telle imprimante. Par exemple, saut de ligne entre 
chaque ligne ("LINE FEED"). Souvent, il suffit de modifier la position 
d'un switch dans l'imprimante, parfois il n'y a pas de solution. 
Donc, avant d'acheter une imprimante, essayez-la chez le vendeur, avec 
un AMSTRAD et un câble approprié. 


LES CRITERES DE DIVISION 

Nous venons de voir les deux principaux, à savoir les jambages infé¬ 
rieurs des minuscules et la nature du ruban encreur. En voici quelques 
autres importants : 

— La possibilité de "clavier" français, qui permet d'imprimer les carac¬ 
tères minuscules accentués. C'est quasi indispensable. 

— L'écriture renforcée. C'est très pratique lorsque le ruban demande 
sa mise à la retraite. 
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— Friction/Traction. La position "Friction" permet de charger des feuil¬ 
les séparées, à en-tête, par exemple. 

— Pour faire du "Hard Copy" d'écran (graphiques), il est obligatoire 
de disposer du BIT IMAGE et du pas d'interligne variable. 

A l'inverse, ne vous laissez pas séduire par des caractéristiques en fait 
peu importantes, à savoir : 

— La'vitesse : 80 CPS est bien suffisant. 

— Les tabulations horizontales, verticales et la marge droite. Même si 
vous les avez, un bon conseil, ne vous en servez pas ! Programmez 
des SPC et comptez vos lignes en Basic, c'est beaucoup plus sûr... Pour 
le nombre de caractères par ligne, utilisez la commande AMSTRAD 
WIDTH. Après un WIDTH(40), un LIST # 8 fournira un listing identique 
à celui de l'écran en MODE 1. Attention I une commande WIDTH reste 
dans le buffer de l'AMSTRAD, pas dans celui de l'imprimante... 

Je pense que vous avez tous les éléments pour décider de cet achat 
ou non. Un dernier détail : à l'image des téléviseurs et des machines 
à laver, les fabricants d'imprimantes sont très peu nombreux, mais les 
"marques" sont, elles, très nombreuses. 
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MATRIX 



Michel CHANAUD 


MATRIX est un jeu de réflexion où vous jouez contre l'ordinateur. 
Une grille est remplie de valeurs numériques aléatoires positives 
ou négatives. Vous pouvez choisir une valeur sur une rangée en 
déplaçant le curseur à l'aide des flèches horizontales et en pres¬ 
sant la touche COPY. A son tour, le CPC choisira une valeur, mais 
cette fois-ci dans une colonne. 

Les compteurs des deux joueurs accumulent les points obtenus lors 
de chaque choix. Attention ! Il faut parfois savoir faire des coups 
"faibles" si l'on veut gagner à plus long terme. 

10 ♦♦♦♦♦♦♦ 4 *» 44 ***** 4 ** 4*****4 

♦ M.Chànaud « * H A T R I ü 

le Canebâl ♦ ♦ SARLAT ♦ 444*444444444 

40 INK 0,13:INK l,0iINK 2,6;INK 3,24;B0RDER 135MODE 1 

50 LOCATE 13,5:PEN 3!F0R IM TO 3:PRINT TAB(13)STRING$(15,CHR$(143))sNEÜ 

T 

ï 

55 LOCATE 28,5!PEN hPRINT CHR$(132);LOCATE 2B,6;PEN 1:PRINT CHR$I133)!L0 
GATE 28,7:PRINT CHR$(133) 

56 LOCATE 13,8;PRINT CHR$(130)+STRIN6I(14,CHRI(I31))+CHRf(129) 

60 PRINT CHR$(22)+CHR$(1):L0CATE 15,6:PEN l:PRINT"M A T R I X":PRINT CHR$ 
(22)+CHR$(0) 

80 PEN 1; LOCATE 6,I6jPRINT''V0ULEZ-V0US LES REBLES DU JEU ? (0/N)“ 

90 R$=UPPERI(INKEY$):IF R$="'' THEN 90 
100 IF LEFTK R$,1)="0'’ THEN 80SUB 1130 

110 REM.y— I N I T I A L I S A T I 

0 N S .-. 

120 CLS: LOCATE 12,10;PRINT"UN INSTANT S.V.P." 

130 DIM B$(8),A$(64),R(8)!OI=CHR$(207)+CHR$(207) 
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140 RANDOMIZE TIHE 

150 DATA 15,«MO,09,09,09,08,08,08,07,07,07,06,06,06,05,05,05,04,04,04,0 

3,03.03,02,02,02.01,01,01,00,00,00,00,00,00,-1,-1,-1,-2,-2,-2,-3,-3,-3,-4 

,-4,-4,-5,-5,-5,-6,-6,-6,-7,-7,-7,-8,-8,-8,-9,-9,-9,-9 

160 FOR r/=l TO 64:READ A$(I7.):NEXT 

170 FOR V7.=l TO 8:F0R H*/.=l TO 8 

180 A=INT(RND*64)+l:a7.=aîIF THEN 180 

190 IF A$(AX)="«“ THEN A$(A7.)=0$ 

200 6l(V7.)=6l(V7.)+AI{A7.):A$(AX)="ii'’;IF RIGHT$(B$(VX),2)=0$ THEN CTAB7.=HX 
♦2-îîLTAB7.=07. 

210 NEXT:N£XT 

220 FOR IX=1 TO 8jBBI(I 7.)=B$(IX)!NEXTsCCTAB7.=CTAB7,!LLTAB7.=LTABX 
230 SX=0:TX=0:LP7=0!MOX=2 
240 BOSUB 730 

250 REM . MOUVEMENT DU JOUEUR 


260 IF BI{LTABX)=O$+O$+O$+0l+OI+0f+O$+OI THEN GOTO 930 
270 60SUB 1050 

280 IF INKEY(9)=0 AND MIDKBJ(LTABX),CTABX,2)<)0$ THEN 360 
290 DC7.=-2*(INKEY(1)=0)+2MINKEY(8)=0):IF DCX=0 THEN LOCATE (3*CTABX+7)/ 
2,2HTABX+2îPEN 2 jPRINT MID${B$(LTABX),CTABX,2)îFOR I=I TO 10:NEXT:LDCAT 
E (3*CTAB7+7)/2,2»LTAB7.+2îPEN 1:PRINT HID$(B$(LTABX),CTA67.,2);F0R 1=1 TO 
lOîNEXT .-GOTO 280 
300 CTAB7.=CTAB7.+DCX 

310 IF CTAB7.=-1 THEN CTABX=15 1 

320 IF CTABX=17 THEN CTABX=1 

330 IF MID$(B$(LTABX),CTAB7.,2)=0I THEN GOTO 300 

340 LOCÂTE (3^fCTAB7.+7)/2,2»LTABX+2:PEN 2SPRINT MID$(B$(LTABX).CTABX,2):F j 
DR 1=1 TO 10;NEXT!L0CATE (3*CTABX+7)/2,2»LTABX+2:P£N IsPRINT MIDI(B$(LTA { 
By.),CTAB7.,2):F0R 1=1 TO IOjNEXT j 

350 FOR 1=1 TO 30;NEXT!G0T0 280 ■ 

360 PEN lîLPX=VAL(MID$(B$(LTABX),CTAB7.,2)) | 

370 LOCATE (3»CTAB7.+7)/2.24LTABX+2!PRINT 0$:B$(LTAB7.)=LEFTI(BI(LTABX),CTA 
BX-1I+0I+RI6HT$(B$(LTABX),15-CTABX) ■ 

380 S7.=SX+LPX!M0X=î 
390 60SUB 890 

400 REM.- JEU DU CPC 


410 GDSUB 1080 

420 FOR N7.=l TO 8!R(NX)=0!NEXT 

430 FOR NX=1 TO 8:VX=-100!lF NX=LTABX THEN 560 

440 IF HIDIIB$(NX),CTAB7.,2)<>0$ THEN 480 


l 
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450 W7.=-100 

460 IF NMTABX THEN 550 
470 GOTO 490 

480 WX=VAL{MID$(B$(N7.),CTABX,2)) 

490 FOR H7.=l TO 15 STEP 2 

500 IF M7=CTAB7. THEN 540 

510 IF MID$(6$(NX),M7.,2)=0$ THEN 540 

520 IF VAL{MID$(BIINX),MX,2))<VX THEN 540 

530 VX=VAL(MIDI(BflNî:),MX,2)) 

540 NEXT «X 
550 R(N*/:)=WX-VX 
560 NEXT NX 
570 V7.=-1Û0 
580 FOR N7.=l TO B 

590 IF MID$(B$(NX),CTABX,2)=0I THEN 630 
600 IF R(N7.)<V7. THEN 630 
610 VX=R(N7.) 

620 LTABX=NX 
630 NEXT NX 

640 LPX=VAL(MIDI(B$(LTABX),CTABX,2)) 

650 TX=TX+LPX 

660 LOCATE (3*CTABX+7)/2,2»LTABX+25PRINT 0$ 

670 BI(LTABX)=LEFTI(B$(LTABX),CTABX-l)+0$+RIGHT$(B$(LTABX),15-CTAB7.) 
680 LOCATE (3*CTABX+7)/2,2*LTABX+2:PRINT 01 
690 M0X=2 
700 GOSUB 890 

710 GOTO 250 ' 

720 END 

730 REM. TABLEAU DE JEU 


740 CLSiLOCATE 11,1;PEN 3!PRINT“M A T R I X-îPEN 1 

750 LOCATE 4,3!PRINT CHR$(150)!!FOR IX=1 TO 7;PRINT CHR$(154)+CHR$(154)+C 

HRI(158);!N£XT:PRINT CHRI(154)+CHR$(154)+CHR$(156) 

760 L$=CHR$(149)+“ "îK$=CHR$(154)+CHR${154)+CHR$(159) 

770 FOR JX=1 TO 1\ PRINT TAB(4) 

780 FOR IX=l TO BjPRINT LI;rNEXTtPRINT CHR$(149) 

790 PRINT TAB(4)CHR$(151)i!F0R IX=1 TO 7:PRINT K$;;NEXT!PRINT CHRI(154)+C 
HR$(154)+CHR$(157) 

800 NEXT JX 

810 PRINT TAB{4)îîF0R IX=1 TO OsPRINT Ll; îNEXTjPRINT CHR$(149) 

820 PRINT TAB(4)CHR$(147);:F0R IX=1 TO 7:PRINT CHR$I154)+CHR$(154)+CHR$(1 
55);!NEXT:PRINT CHR$(154)+CHR$(154)+CHRI(153)- 
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830 FOR YX=1 TO B: FOR CP*/=0 TO 7 
840 XX=2*CP7.+1 

850 LOCATE n+CPXM,2+2*YX:IF MIDI(BKYX),l(r.,2)="15“ THEN PEN 3 ELSE PEN 
1 

860 PRINT MIDI(B$(yX),rX,2) 

B70 NEHîNEXT 
380 RETURN 

390 REM. AFFICHAGE DES POINTS 


900 LOCATE 30,9;PRINT"V0USî"S 7.!L0CATE 3Û,11:PRINT“CPC !"TX 
910 LOCATE 9,21;PRINT''DERNIER COUP ="LP‘/.!LOCATE 10.25:IF H07.=l 
"AU CPC DE JOUER" ELSE PRINT "A VOUS DE JOUER" 

920 RETURN 

*^50 REM. FIN DE LA 


940 WÎNDOW #0.I.40,20,25;CLS:WIND0W #0.1,40,1,25 

950 LOCATE 10.21:PEN 3 

960 ÎF S7.=TX THEN PRINT" MATCH NUL" 

9?0 IF S7.)TX THEN PRINT"îîRAVO...VOUS AVEZ GAGNE." 

980 IF S7.<T?. THEN PRINT" J'AI GAGNE." 

990 PEN lîLQCATE 5.24;PRINT" VOULEZ-VOUS:LOCATE 20,23:PRINT"i- LA MEME 
FARTIE"îLOCATE 2Û,24:PRINT"2- UNE AUTRE PARTIE":LOCATE 20.25:PRINT"3- ARR 
ETER" 

1000 R$=INK£y$:IF RIO"" THEN 1000 
1010 RI=INKEYI:IF Rl="" THEN 1010 
1020 IF R$="3- THEN CLS:END 

1030 IF R$="r THEN CLS:FOR IX=I TO 8:BI(I7.)=BB${r/);NEXT;LTAB7.=LLTABX!CT 
AB7.=CCTAB7.;GOTO 230 
1040 RUN 110 

1050 REM. CLIGNOTEMENT DU CURSEU 

R ..-. 

1060 LOCATE (3»CTAB'/(+7)/2,2*LTAB7.+2;PEN 2:PRINT OI:FOR 1=1 TO 10:NEXT;LDC 
ATE (3»CTAB7.+7)/2,2*LTABX+2:PEN hPRINT OliFOR 1=1 TO 10:NEXT 
1070 RI=INKEyi:IF Rl="" THEN 1060 ELSE RETURN 

1060 REM. ANALYSE DE LA COLONNE 


THEN PRINT 

PARTIE 


1090 C$="" 

1100 FOR NX=1 TO 8:CI=CI+MID$(BI(NX),CTABX,2);NEXT 
1110 IF C$=0$+0$+0$+0l+0$+0l+0l+0l THEN 930 
1120 RETURN 

1130 REM. REGLES DU JEU 
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1140 CLS 

1150 PRINTsPRINT-UNE GRILLE EST AFFICHEE. CONTENANT DES"!PRINT;PRINT*‘NQHB 
RES DISPOSES DE FAÇON ALEATOIRE." 

1160 PRINT;PRINT"LE BUT DU JEU EST D'OBTENIR PLUS DE " 

1170 PRINTiPRINT-PDINTS QUE L'ORDINATEUR." 

1180 PRINT:PRINT''QUANB C'EST A VOUS DE JOUER,VOUS POUVEZ" 

1190 PRINT;PRINT"DEPLACER LE CURSEUR H0RI20NTALEI1ENT“!PRINT:PRINT"AVEC LE 
S FLECHES '’+CHR${242)+" ET "+CHR$(243)+“ ET PRENDRE" 

1200 PRINTsPRINT'LE NOMBRE CHOISI EN APPUYANT SUR [COPY]." 

1210 PRINT"L'ORDINATEUR CHOISIT DANS LA COLONNE." 

1220 LOCATE 10,24;PRINT"APPUYEZ SUR UNE TOUCHE" 

1230 RI=INKtYl!lF R$="" THEN 1230 
1240 RETURN 
1250 END 
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TOUS A TABLE 


2 


Michel ARCHAMBAULT 


L e plan de table d'un banquet se doit de respecter les "règles" sui¬ 
vantes : chaque convive doit avoir comme voisins et vis-à-vis une 
personne de sexe opposé, et aucune de ces trois personnes ne doit 
être son conjoint ; sauf cas particuliers (jeunes mariés). 

Ce fastidieux casse-tête est résolu instantanément par ce programme, 
mieux, il vous propose plusieurs solutions répondant aux critères ci- 
dessus : deux colonnes de noms à l'écran vous présentent les person¬ 
nes en vis-à-vis. 

Lorsqu'une des solutions vous plaît, inutile de la recopier, pressez la 
touche E, et elle est éditée sur imprimante. 

Ce programme n'est pas d'une utilisation fréquente (hélas, hélas !...), 
mais sa conception, uniquement logique et aléatoire (il n'y a pas de 
RND), constitue un exercice Basic qui, lui, n'a rien de futile ! 

Si vous n'avez pas l'intention de le recopier au clavier, essayez quand 
même le module du titre (lignes en 12000) dont le type d'animation 
pourra vous inspirer pour des programmes personnels. 


L'ENTREE DES NOMS 

Elle se fait en trois étapes : la liste des couples, celle des filles, celle 
des garçons. Le nombre total de convives est limité à quarante, ce pour 
des raisons de présentation à l'écran. 


COUPLES 
(lignes en 3000) 

L'écran de saisie présente "Mr, Mme", vous complétez par le nom. 
En fin de liste, on tape "Q" (quitter). Le nom tapé est entré en deux 







tableaux DIM ; M$(C) pour les maris, et E$(C) pour les épouses. L'ad¬ 
jonction du "Mr" ou du "Mme" est automatique. 


FILLES 

(lignes en 4000) 

Les noms entrés sont mis en DIM F$(F). Le préfixe "Mie" est automa¬ 
tique. 


GARÇONS 
(lignes en 5000) 

Même méthode, mise en DIM G$(G). Le préfixe automatique est cons¬ 
titué par deux astérisques. 

En cours de saisie, le total TOT est incrémenté ; s'il atteint quarante, 
on est prévenu par un bip sonore, et le programme passe à la suite. 
TOT est bien sûr égal à (C x 2)-l-F-t-G. 

Dans les trois écrans de saisie, les noms sont autopositionnés sur deux 
colonnes. En bas de l'écran figurent les décomptes incrémentés, par 
exemple, "5 Demoiselles * «Total = 18". Le passage d'un tableau à l'au¬ 
tre se commande par la lettre "Q". 


LA DISPOSITION 

En fin de saisie, nous possédons quatre listes, les DIM M$, E$, F$ et 
G$, avec lesquels le programme va créer une cinquième, D$(D), D signi¬ 
fiant "Disposition". C'est une suite de noms avec alternance masculin- 
féminin et éloignement des conjoints. C'est là, le "gros morceau" ! 
Une fois cette suite établie, nous l'afficherons sous forme de boucle 
fermée autour d'une table longue. En faisant tourner cette boucle d'un 
cran à chaque fois, nous pourrons changer les vis-à-vis, tout en 
conservant ses voisins droite-gauche. OK ? 

Ces "calculs" concernent le traitement des couples, de loin le plus 
complexe, puis on enchaîne sur le mixage des listes filles et garçons. 


LA DISPOSITION DES COUPLES 
(lignes en 6000) (figure 1) 

Le traitement est différent selon le nombre de couples, C est pair ou 
impair. Si C est pair, la variable P=1. 

D'abord, un premier passage en zig-zag : M$(1), E$(2), M$(3), E$(4), 
etc. (voir figure 1a). Ce premier passage est commun aux nombres de 
couples pairs et impairs. 
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Second passage : pour C impair, c'est du zig-zag mais en commençant, 
cette fois, par l'épouse du couple n° 1 : E$(1 ), MS$(2), E${3), M${4), 
E$(3), etc. que C soit pair ou impair, on termine toujours par une 
épouse ; normal puisque l'on débute toujours par le mari M$(1). 



Ce mode de balayage des listes Maris et Epouses assure une dispersion parfaite dans 
la liste finale D$. 


DISPOSITION DES CELIBATAIRES 
(lignes en 7000) 

La fonction Basic MIN(G,F) fournit le nombre de "couples de célibatai¬ 
res", l'excédent en filles ou en garçons sera conservé tel quel (comment 
faire autrement). Là, c'est très facile, on prend alternativement un gar¬ 
çon, une fille : G$(1), F$(1), G$(2), F$(2), etc., et on complète par 
"l'excédent". 

Le tableau D$(D) est enfin terminé. On a alors D = TOT. 


L'AFFICHAGE 
(lignes en 10000) 

Les deux colonnes à l'écran figurent les personnes en vis-à-vis. Elles 
sont séparées par deux caractères graphiques flèche gauche - flèche 
droite, appartenant au troisième jeu de caractères de l'AMSTRAD, obte¬ 
nus en faisant précéder de CHR$(1) (ceux obtenus au clavier par 
CTRL H, CTRL I). 

C'est la liste DI (D) qui aurait été pliée en épingle à cheveux, le coude 
étant en bas de l'écran. 
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En bas de l'écran figure la légende : 

P= Pernnutation : c'est le changement de vis-à-vis ; peut être répétée 
un nombre indéfini de fois. 

E = Edition (si vous avez une imprimante) : la disposition présentée à 
l'écran est imprimée. On peut demander une édition (ou plusieurs) de 
diverses permutations. 

Q = Quitter : tout est effacé, on a alors le choix entre l'abandon du pro¬ 
gramme et une nouvelle saisie de noms. 


LA STRUCTURE DU PROGRAMME 

L'auteur est un inconditionnel de la programmation "structurée" (ou 
"modulaire"). Ainsi, tout le scénario du programme est dans les lignes 
en 1000 (peu nombreuses... ). Elles appellent les différents sous- 
programmes (ou modules) par des GOSUB ; d'où une soup/esse totale 
pour des modifications ultérieures, et ce en toute clarté puisque cha¬ 
que module (ou sous-module) débute par un numéro de ligne multiple 
de 1000. Une bonne et sage habitude à prendre. 

Autres précautions habituelles : en ligne 100, toutes les variables seront 
des nombres entiers : gain en mémoire (2 octets au lieu de 5... ) et 
boucles FOR-NEXT deux fois plus rapides. D'autre part, on confirme 
le MODE 1 et l'OBIGIN graphique afin de ne pas "hériter" d'options 
antérieures qui ne sont pas annulées par NEW ou RUN. 

En fin de programme, ligne 1300, on restitue les options couleurs par 
défaut que l'on avait modifiées. Ce qui s'appelle laisser le micro dans 
l'état où on l'a trouvé... 


LE TITRE ANIME 
(lignes en 12000) 

Il n'apparaît qu'en fin de chargement. Sur l'écran, se dessine un verre 
ballon qui se remplit de vin rouge, du Beaujolais bien sûr, car je suis 
chauvin sur ce point. 

Ce grand arc de cercle (le ballon) est tracé par une suite de "cordes 
de cercle" depuis 135° jusqu'à 405° (lignes 12020 à 12050). C'est 
très rapide. Le pied est dessiné par des DRAWR (12100-12110). 

Le vin : sur un rayon légèrement Inférieur, afin de ne pas effacer le verre, 
on fait PLOT sur un arc de cercle depuis 270° (le fond) jusqu'à 370° ; 
de là, on trace des traits rouges vers la gauche, de longueurs égales 
à deux fois le cosinus de l'angle (lignes 12200 à 12230). 

On attaque alors le texte : 

La chaîne "Disposition des convives" vient se centrer en arrivant par 
la gauche de l'écran (12310 à 12330). Puis, deux lignes plus bas, la 
chaîne "autour d'une table" vient se centrer en arrivant par la droite 
(12340 à 12360). 
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En bas à gauche de l'écran, le nom de l'auteur et l'année apparaissent 
caractère par caractère en commençant par le dernier (12400-12410). 
Deux secondes plus tard, il s'efface de la même manière par 
PEN = PAPER (12420-12430). Les boucles FOR J=1 TO... sont des 
ralentisseurs. 

En bas à droite, apparaît alors "Pressez une touche", suivi de CALL 
&BB06 (ligne 12450), routine qui bloque le programme en attendant 
un caractère au clavier. C'est plus simple à écrire que WHILE 
INKEY$ = "":WEND. 

NOTE : Toutes ces techniques d'animations simples (et beaucoup d'au¬ 
tres) sont décrites plus en détail dans l'ouvrage du même auteur 
"MIEUX PROGRAMMER SUR AMSTRAD" (Editions SORACOM). Hé 
hop ! un peu de pub... 


PETITS CONSEILS D'UTILISATION DU PROGRAMME 

Il est nécessaire d'avoir un nombre de couples supérieur à deux afin 
que les conjoints soient séparés. 

Pour ne pas séparer un couple, exemple des jeunes mariés à un repas 
de noce, il suffit de les entrer en tête de liste des célibataires. 
Entrez les enfants en dernier, ils seront ainsi regroupés. 

Si le nombre total des convives est impair, il y aura forcément quelqu'un 
sans vis-à-vis. A vous d'effectuer des permutations successives (tou¬ 
che P) jusqu'à trouver la solution viable, par exemple la personne que 
l'on peut mettre en bout de table. 

Suprême avantage de ce programme : si quelqu'un vous reproche 
d'avoir été mal placé, vous pourrez lui répondre par cet air connu : "Ce 
n'est pas de ma faute, c'est l'ordinateur... ". 

ÎO ' TOUS A TABLE. 

20 'Disoosition de Convives autour d'une Table. 

30 ' AMSTRAD ♦ Michel Archambault * 1985 

100 DEFINT A-ZîORIGIN Û,0:H0DE 1 

200 GOSUB 12000î'TITRE 

iOOO • DEROULEMENT DU PROGRAMME 

1010 DIM M$(2I),EI(2:i),FI(37),G$(37),D$(41) 

1020 PAPER 0:PEN 2îB0RDER 15;CLS 

1030 L0CATE 4,10:PRINT "E = ENTREZ LES NOMS DES CONVIVES.'= 

1040 LOCATE 4,13!PRiNT = QUITTER LE PROGRAMME.'' 

105’0 R$=UPPER#(INKEYI):IF Rÿ='"’ THEN 1050 
lÔéO IF R$="Q“ THEN 1300 

1070 IF R$<>''E" THEN PRINT CHRI(7):R$="":G0T0 1030 
1100 GOSUB 3000:'ENTREE COUPLES 
1110 GOSUB 4000:'ENTREE FILLES 
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1120 GOSUB 5000:'ENTREE BARCONS 
1130 60SUB 6000:'CALCULS COUPLES 
1140 GOSUB 7000:'CALCULS CELIBATAIRES 
1150 GOSUB 10000:'AFFICHAGE 
1200 RUN 1000 

1300 BORDER 1;PAPER 0:PEN liCLS 
1310 END 

3000 ' ENTREE DES COUPLES 

3010 PAPER 1;PEN OiBORDER 14:CLS;C=l:L=l 

3020 LOCATE 5,2:PRINT *20 COUPLES «axi î QUITTER-) 0* 

3100 LOCATE 2,3H:G0SUB 3500:IF FQ=1 THEN 3200 
3110 LOCATE 21,3+L:60SUB 3500;IF FQ=1 THEN 3200 
3120 L=L+1:G0TQ 3100 
3200 RETURN 

3500 LINE INPUT '‘,C$:IF UPPERIICD^-Q* THEN FQ=l!C=C-IîGOTO 3600 

3510 CMLEFT$(CI,12)îH$(C)=*Hr "+C$:EI(C)="Mffie "+CI 
3520 T0T=T0T+2;IF T0T=40 OR C=20 THEN PRINT CHR$(7);F0R 1=1 TO 4000:NEXT; 
FQ=1;60T0 3600 

3530 PEN 3;L0CATE 9,24;PRINT C|“couples h Total=“îT0TiPEN 0 
3540 C=CH 
3600 RETURN 

4000 ' ENTREE DES DEMOISELLES 

4005 IF T0T=40 THEN 4600 

4010 PAPER 1:PEN 0:BORDER 7:CLS:F=1:L=1:FQ=0 

4020 LOCATE 3,2;PRINT “36 DEMOISELLES maxi : QUITTER-) Q" 

4100 LOCATE 2,3+L;G0SUB 4500;IF FQ=I THEN 4200 
4110 LOCATE 21,3+L:6QSUB 4500;IF FQ=I THEN 4200 
4120 L=L+1:G0T0 4100 
4200 RETURN 

4500 LINE INPUT “Mie “,C$;IF UPPERI(Cf)=“Q" THEN FQ=I:F=F-1:G0T0 4600 
4510 C$=LEFTI(C$,12);F$(F)=*Mle ”+C$ 

4520 TOT=TOT+1;IF T0T=40 OR F=36 THEN PRINT CHR$(7);F0R 1=1 TO 4000:N£)[T! 
F0=1:GOTO 4600 

4530 PEN 3;L0CATE 7.24;PRINT F;"Denoiselles ♦♦ TotaI="!TOT;PEN 0 
4540 F=F+1 
4600 RETURN 

5000 ' ENTREE DES GARÇONS 

5005 IF T0T=40 THEN 5600 

5010 PAPER liPEN 0:BDRDER l:CLS:G=l!L=l:FQ=0 

5020 LOCATE 5,2;PRINT "36 GARÇONS iiiâxi : QUITTER-) B" 

5100 LOCATE 2,3*L;G0SUB 5500;IF FQ=1 THEN 5200 
5110 LOCATE 21,3+L!GOSUB 5500:IF FQ=1 THEN 5200 
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5120 L=L+1:G0T0 5100 | 

5200 RETURN 

5500 LINE INPliT *** UPPER$(C$)=''B“ THEN FQ=l;G=6-lî6DT0 5600 

5510 C$=LEFT${C$,12)!G$(B)=“h "+C$ 

5520 T0T=T0T+lîIF ÎOTMO OR 6=36 THEN PRINT CHRI(7);F0R 1=1 TO 4000SNEXT! 
FB=I;GOTO 5600 

5530 PEN 3jL 0CATE 9,24{PRINT G;"Garçons ♦♦ Total=";TOî;PEN 0 
5540 G=G+1 
5600 RETURN 

6000 ' DISPOSITION COUPLES 

6010 D=OîIF C=0 THEN 6900 ! 

6020 IF INT(C/2)=C/2 THEN P=1 f 

6100 'PASSAGE 1 ^ 

6110 1=1 \ 

6120 D=D+1:D$(D)=N$(I) 

6130 IF KC THEN D=D+l:DI(D)=E$(IM)!l=I+2;G0T0 6120 1 

6150 IF P=1 THEN 6300 | 

6200 ' PASSAGE 2 C IMPAIR fi 

6210 1=1 î 

6220 D=D+lîDI(D)=EI(I) j 

6230 IF KC THEN D=D+l;D$(D)=M$(I+l)îI=I+2;G0T0 6220 • 

6240 GOTO 6900 ^ 

6300 ' PASSAGE 2 C PAIR î 

6310 I=2:D=D>1 ) 

6320 D=D+l!D${D)=MI(I) I 

6330 D=D+1:DI(D)=EI(I-1) 

6340 IF I=C THEN 6900 ] 

6350 I=I+2;G0T0 6320 : 

6900 RETURN 

7000 ‘DISPOSITION CELIBATAIRES 
7010 A=MIN(B,F)!lF G+F=0 THEN 7900 
7020 FOR 1=1 TO A 
7030 D=D+l!D$(D)=B$(I) 

7040 D=D+l!D${D)=FI(I) 

7050 NEXT 

7060 IF G=F THEN 7900 
7070 IF G<F THEN 7200 
7100 FOR I=F+1 TO G 
7110 D=D+l!DI(D)=G$(I) 

7120 NEXT 
7130 GOTO 7900 
7200 FOR I=G+1 TO F 


1 
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7210 D=D+1;D$(D)=F$(I) 

7220 NEXT 
7900 RETURN 
10000 'AFFICHAGE 

10010 PAPER 2îPEN OîBORDER 95CLS!PRINT 
10100 IF’INT{TOT/2)<TOT/2 THEN T0T=T0T+1 
10110 B=T0T/2 
10120 FOR 1=1 TO B 

10130 PRINT " “;DI(I);!PRINT TABI19);CHR$(l)jCHRI(8)|CHR$(l)5CHRI(9)5'' 
D$(TGT+1-I) 

10140 NEXT 

10150 PEN 3SL0CATE 1,24!PRINT TOT;"P=Periutation; E*Edition; Q=Quitter"!P 
EN OîRI^"" 

10160 R$=UPPER${INKEYI)!lF R$=''" THEN 10160 

10170 IF R$="Q'' THEN 10900 

10180 IF R$=''E'' THEN GOSUB 11000:RI='"'!e0T0 10160 

10190 IF RIO'P" THEN 10150 

10200 'PERMUTATION 

10210 D$(0)=D$I1) 

10220 FOR 1=1 TO T0T-1{D$(I)=D$(I+1) 

10230 NEXT 
10240 DI(T0T)=D$(0) 

10250 R$=“'‘îBOTO 10000 
10900 RETURN 
11000 'EDITION 

11010 PRINT #0,CHR$(27)|CHRI(64) 

11020 FOR 1=1 TO B 

11030 PRINT 18," "5D${I)|SPC(20-LEN(DI{I)));" s "iDKTOT+l-D 

11040 NEXT 

11050 PRINT «8 

11060 RETURN 

12000 'TITRE 

12010 MODE lîPAPER 2!PEN OîBORDER 9:CLSîR=100 
12020 DEBîPLOT 249,271,0 
12030 FOR A=135 TO 405 STEP 10 
12040 DRAW R#C0S(A)+320,R»SIN(A)+200 
12050 NEXT 

12100 PLOT 310,100:DRANR 0,-50îDRA«R -60,-10 
12110 DRAWR 140,0:DRAHR -60,10;DRAHR 0,50 
12200 R=98 

12210 FOR A=270 TO 370 
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12220 PLOT C0S(A)*R+320.SIN(A)*R*20Ô.3 
12230 DRAWR -C0S(A)*R*2.0;NEn 

12300 PEN 3!HI=“DISP0SITI0N DE CONVIVES-!BI=*'AÜTQUR D'UNE TABLE." 

12310 A$=SPACE$((40-LEN(HD)/2-1 )m 

12320 FOR 1=1 TO LENlADîFOR J=1 TO IOO;NEXT 

12330 LOCATE 1,3!PRINT RI6HT$(A$.I)îNEn:fEN 0 

12340 A$=B^SPACEI((40-LEN(BI))/2) 

12350 m 1=1 TO L£N(AI):FOR J=1 Tn lOOsNEU 

I23î0 LOCATE 4l-I.é;PRlNT LEFTJ(AI.I);NEXT 

12400 N$=''l1.Arcfiafflbault-1985''!F0R I=IB TO 1 STEP -1 

12410 LOCATE IM,24;PRINT HID$(NI,I,l)îFOR J=1 TO lÛOsNEXTîNEXT 

12420 FOR J=1 TC 4000:NEXT;PEN 2:F0R 1=18 TO 1 STEP -1 

12^30 LOCATE I+l,24îPRINT MIDI(N$,I,1);F0R J=1 TO lOOtNEXTiNEXT 

12450 PEN 3:L0CATE 22,24;PRINT "pressez une touche"!iCALL ltBBÛ6 

12900 RETÜRN 

65535 '.FIN DE LISTING. 
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AWARI 



AWARI est un jeu de réflexion d'origine africaine où vous affrontez 
votre CPC. De toutes les variantes de ce jeu, celle-ci permet au mieux 
d'exercer ses talents de tacticien, surtout dans le maniement des gros¬ 
ses maisons. A noter : la particularité de pouvoir se déplacer dans la 
partie, au moyen des flèches horizontales et de reprendre ses coups, 
permet de progresser plus rapidement dans l'apprentissage de ce grand 
classique des jeux de stratégie. Les règles du jeu sont incluses dans 
le programme. 

20 4 

30 '4 AWARI M.C. 4 

40 '4 ♦ 

50 '4444444444»44444#44»4444444444»#4« 

70 60SUB 1460 ' présentation et réglés 
80 ; 

90 '========== initialisations ======== 

100 KX=l;QX=14;Py.=13îFî:=50:DX=12 
110 D$=SPACEI(39) 

120 DIM B(QX),T(QX),Y{QX),W(QX),VI6),U(6),AR{300,15) 

130 : 

140 '=========== DEPART =============== 

150 RANDOMIZE TIME 

160 ZB=RND(0);2B=ZB/QXî2A=0.25+ZB!ZB=0.25-ZB 
170 FOR JX=1 TO DX;B(JX)=4!NEXT 
180 60SUB 1280 
190 GOSUB 1140 

200 LOCATE 1,24!PRINT'' VOULEZ-VOUS JOUER LE PREMIER ? (O/N)" 

210 SOSUB 1410 
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220 GOSUB 2710 

230 LOCATE l,24!PRINT DI 

240 IF Rl='’0" THEN COHMjBOTO 400 

250 IF RIO'N* THEN 200 

260 ! 

270 '======= BOUCLE PRINCIPALE ========= 

280 BOSUB 2700 !AR(C0UP7.,15)=1 

290 PEN 2:L0CATE l,21îPRINT DljDI;DI;iLOCATE 1,21;PRINT" JE REFLECHIS "; 
:60SUB 910 

300 IF HX<1 THEN 1380 

310 LOCATE 1,21:PRINT DI;;LOCATE 1,21;PRINT" JE JOUE EN*;HX;SQUND 7,100, 
10,5 

320 SCPCX=0; FOR JX=1 TO QX;T(JX)=B(JX>;SCPCX=SCPCX+B(JX);NEXT;SOSUB 710 
330 IF SCPCXOO THEN 360 

340 0n=0;F0R n=I TO 6:IF BdXl+IXW THEN 0KX=l!NEXT 
350 IF 0KX=0 THEN 1380 

360 FOR JX=1 TO QX!B{JX)=T(JX);NEXT;GOSUB 1150 
370 IF B(QX)<24 THEN INTERX=0:B0T0 400 

380 LOCATE 1,21;PEN 3;PRINT“ J'AI 6ABNE !";Dl!G0T0 570 

390 : 

400 '======= JEU DU JOUEUR ============= 

410 IF INTERX=1 THEN 430 

420 LOCATE 1,24!PRINT DIjLOCATE 1,24;PEN 2;PRINT“ QUEL EST VOTRE I10UVEME 
NT ? (1 - 6) ■ 

430 GOSUB 1410 

440 LOCATE 1,24;PRINT DI 

450 IF ASC(RI)=242 THEN GOTO 2600 

460 IF ASC(RI)=243 THEN GOTO 2730 

470 IF RK-l* OR Rl>*6' THEN 400 

480 IF INTERX=1 THEN 430 . 

490 GOSUB 2700!AR(COUPX,15)=0 
500 MX=VAL(RI) 

510 FOR JX=1 TO QX;T(JX)=B(JX):NEXT 
520 BOSUB 710;IF MX<0 THEN 650 
530 FOR JX=1 TO BX;B(JX)=TIJX)!NEXT 
540 HNX=HNX+1;GOSUB 1140 
550 IF B(PX)<24 THEN 270 

560 LOCATE 1,21;PEN 3;PRINT" BRAVO ! VOUS AVEZ BAGNE.“;DI 

570 PEN 2:L0CATE 1,24;PRINT’' VOULEZ-VOUS ANALYSER CETTE PARTIE ?" 

580 GOSUB 1410 

590 IF Rl="0" THEN C0UPX=0;LOCATE 1,21;PRINT" "+CHRI(242)+" 

ou JEU ou "+CHRI(243)+DI;GOTO 2730 
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600 LOCATE 1,24;PRINT"V0ULEZ-V0US JOÎlER UNE AUTRE PARTIE (0/N)" 

610 GOSUB 1410:IF R$="0" THEN 140 

620 IF R$="N" THEN CLS:LOCATE 15,15:PEN 3:PRINT"AU REVOIR’;CALL &BB18:END 
630 GOTO 610 
640 : 

650 '=-====« COUP ILLEGAL 

660 PEN 3;L0CATE 1,24 ;FOR i=l TO 15;S0UND 7,50,2,12;F0R j=l TO 20:NEXT j 
*i 

670 IF MX=-1 THEN PRINT" CETTE CASE EST VIDE." 

680 IF HX=-2 THEN PRINT" IL FAUT LAISSER DU JEU A L'ADVERSAIRE." 

690 FOR J=1 TO 1000;NEXT:PEN 1;C0UPX=C0UPX-1;S0TQ 400 
700 ; 

710 '======== CASE VIDE ?? ======s===== 

720 IF T(HX)=0 THEN HX=-l!RETURN 
730 : 

740 ’. 

750 R$="H*;IF MX>6 THEN RI=*CPC";GOTO 770 

760 FOR JX=1 TO QX;Y(JX)=T(JX);NEXT;80T0 790 

770 FOR JX=1 TO 6;Y(JX)=T(JX+6);Y{JX+6)=T(JX);NEXT 

780 Y(PX)=T(QX);Y{QX)=T(PX):nX=MX-6 

790 CX=HX:NZ=Y(CX):FOR JX=1 TO NX;CX=CX+1 

800 IF CX=PX THEN CX=1 

810 IF CX=HZ THEN CZ=CZ+1;B0T0 800 

820 Y(CZ)=Y(CX)+1:NEXT;Y(MZ)=0;LX=CX 

830 IF LX<7 OR Y(LZ)>3 OR Y(LX)<2 THEN 850 

840 Y(PZ)=Y(PX)+Y{LZ):Y(LX)=0!LX=LZ-1;GOTO 830 

850 SX=0;F0R JZ=7 TO DX:SX=SX+Y(JX);NEXT 

860 IF SX=0 THEN MX=-2;RETURN 

870 IF R$=*H" THEN FOR JZ=1 TO Q7.;T(JX)=Y(JZ):NEXÎ:RETURN 

880 FOR JX=1 TO 6:T(JX)=Y(JX+6):T(JX+6)=Y(JZ):NEXT 

890 T(QX)=Y(P7.):T(PX)=Y(Q7.);RETURN 

900 : 

910 '========== j£u DU CPC 464 ======== 

920 ; 

930 FOR AZ=1 TO 6:HZ=AX+6:IF B(MX)=0 THEN U(AZ)=-FZ;60TO 1100 
940 FOR JZ=1 TO 8X:T(JX)=B(JZ):NEXT:GOSUB 710 
950 IF NX<0 THEN U(AX)=-FX:GOTO 1100 
960 IF T(QX)>23 THEN HX=AZ+6:RETURN 
970 FOR JZ=1 TO QX!N(JZ)=T(JZ):N£XT:FOR KZ=1 TO 6 
980 IF T(KZ)=0 THEN V(KZ)=FZ:GOTO 1080 
. 990 FOR JX=1 TO QX;T{JZ)=H(JX);NEXT;HX=KZ;GOSUB 710 
1000 IF MX<0 THEN V(KX)=FX:GOTO 1080 
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1010 )(A=ô;)(B=0.05:XC=0:)(0=0!FOR JX=7 TO U 
102Û )(B=XB+TIJX)!lF T(J7.)>0 ÎHEN XA=XA+1 
1Û3Û IF T{JX)<3 THEN XC=XC+1 
1040 IF T(J7.)>XD THEN XD=T(J'/.) 

1050 NEXT:XE=XB!F0R JX=1 TO 6:XE=XE+T{J*/.)jNEXT 
1060 XA=XA/6îXD=1-XD/XB!XC=l-XC/6iXB=XB/XE 
1070 V(K7.)=ZA*(XA+XB)+ZBMXC+XD)+T(QX)+B(PX)-B(Q7.)-T(P‘4) 

1080 NEXT!U(A7.)=FX:F0R J7.=1 TO 6:IF V(J7.)<UiA7.) THEN U(AX)=V(JX) 

1090 NEXT 

1100 PRINT"."!;NEXT!HX=0:XA=-F7.!F0R JX=1 TO 6 
1110 IF{ü(JX)>XA) THEN XA=U(J7.);HX=JX*6 
1120 NEXTsRETURN 
1130 : 

1140 •========== AFFICH. des PIONS ===== 

1150 PEN 2;L0CATE 5.5;PRINT''CPC“:PEN 3 
1160 FOR JX=0 TO SîLOCATE 4*JX+10.9!PRINT B(12-JX)i 
IPO IF B(12“J7.)=0 THEN PEN OtPRINT CHR$(8)+CHR$(8)+STRING$(2.143)!!PEN 5 

• 

1180 IF B(12-JX>>9 THEN PEN 1:PRINÎ CHR$I8)+CHRI(143);;PEN 3 
1190 NEXTsPEN 3:LQCATE 5,ll!PRINT B(Q7.) 

1200 LOCATE 1,13;FOR JX=0 TO 5 
1210 LOCATE 4*JX+10.13!PRINT B(J7.+1)i 

1220 IF B{J7.+ 1)=0 THEN PEN ÛiPRINT CHRI(B)+CHRI(8)+STRIN8I(2.143);sPEN 3 
1230 IF B(JX+1)>9 THEN PEN IsPRINT CHR$(8)+CHR$(143);:PEN 3 
1240 NEXT:PEN 3 jLOCATE 34,UiPRINT BIPXliPEN 2 
1250 LOCATE 34,17:PRINT''V0US'’ 

1260 RETURN 
1270 î 

1280 '======== TRACE DU JEU ============ 

1290 CX=4;LX=7:60SUB 1770 

1300 PRINT CHRI(30);!PEN 2IF0R IX=1 TO 3IPRINT TABI16)STRIN6I{11,143):NEX 
T 

1310 PRINT CHRI(30)+CHRI{22)+CHR$(l);îPEN liFOR IX=I TO 3IPRINT TAB(16)ST 
RINBI(ll,207):NEXTîL0CATE 17,2:PEN 3:PRINT“A W A R T'iPRINT CHR$(22)+CHR$ 

( 0 ) 

1320 PEN 2îL0CATE 11,5:F0R JX=Û TO SiPRINT TAB(4*JXM0)j 12-J7.;iNEXT 
1330 LOCATE IMSiFOR J7.=0 TO SiPRINT TAB<4*JX+10);JX+1;!NEXT 
1340 INK I,3!lNK 2,13:INK 3,25 
1350 RETURN 
1360 ; 

1370 '====== PAS DE MOUVEMENT ========== 

1380 PEN 3IL0CATE 10,19; PRINT^PAS DE MOUVEMENT LEGAL.” 


loa 










PARTIE NULLE."S60TQ 570 


1390 IF B(P7.)=B(QX) THEN PRINÎîPRINT" 

1400 IF B(QX)>B(PX) THEN 3B0 ELSE 560 
1410 REM ====—==— 0/N ============== 

1420 R$=UPPERI(INKEY$)!lF R$<>"" THEN 1420 
1430 R$=UPPERI(INKEYJ);1F Rl=-" THEN 1430 
1440 RETURN 
1450 ! 

1460 '======== PRESENTATION ========== 

1470 MODE 1:INK 0,0,'INK l.SîINK 2,13:INK 3,24;B0RDER 0 

1480 SYMBOL 251,^0,10,UC,i3C,î(3C,î(3C,î(0,ît0 

1490 SYMBOL 252,?(lF,î(?F,UF,î(FF,l(FF,î,FF,&FF.iFF 

1500 SYMBOL 253,Î<FB,&FE,&FE,&FF,Î(FF,Î(FF,Î(FF,Î(FF 

1510 SYMBOL 254,!(FF,l(FF,!(FF,îtFF,^FF,îiFE,fcFE.&FB 

1520 SYMBOL 255,Î(FF,*(FF,Î(FF,&FF,&FF,Î(7F,&7F,UF 

1530 AI=CHRI(143)+STRIN6$(12.32)+CHR$(143)!PEN lîLOCATE H.IsFOR 17=1 Tû 

2:PRINT TAB(14) AljîNEXT 

1540 MIDI(A$,6,4)=STRINSI(4,143)!PRINT TAB(14) Al 
1550 MIDI(AI,5,6)=STRIN6lf6,143):PRINT TAB(14) Al 
1560 PRINT TAB(14)STRIN6I(14.143) 

1570 FOR I7.=l TO 6: PRINT TAB(17)STRINGI(8,143):NEXT 
1580 FOR n=l TO 3:PRINT TAB(18)STRIN6I{6.143);NE7T 
1590 PRINT TAB(19)STRIN6I(4,143) 

1600 PRINT TAB(20)STRINGI(2.143) 

1610 AI=CHRI(214)+CHRI(143)+CHRI(215I;PRINT CHR$(22)+CHRI(1);îL0CATE 1B.6 
:PEN 3!PRINT A$+AI 

1620 AI=CHRI1222)+CHRI(207)+CHRI(223);L0CATE 1B,6jPEN 2îPRINT AI+AI 
1630 PRINT TAB(18)STRINGI(6.143) 

1640 AI=CHRI(213)+CHRI(143)+CHRI(212)!PRINT TA6(18)AI+AI 

1650 LOCATE 19,7îPEN 0:PRINT CHRI(231lîLOCATE 22,7!PRINT CHRI(231) 

1660 LOCATE 19,12;PEN 3;PRINT STRINGI(4,196):L0CATE 19,13:PRINT STRIN6I(4 
,196) 

1670 PRINT CHRI(22)+CHRI(0)j 

16B0 PEN lîLOCATE 16,20;PRINT CHRI(252)+STRINGI(9,143)+CHRI(253)TAB(16)5T 
RINBI(11,143)TAB(16)CHRI(255)+STRINBI(9,143)+CHRI(254) 

1690 PEN 3:L0CATE 17,21îPRINT CHRI(22)*CHRf(1)’*A W A R r'+CHRI(22)*CHRI(0 
) 

1700 PEN 2:L0CATE 2,24!PRINT’'V0ULEZ-V0US LA REGLE DU JEU ? (O/N)" 

1710 GOSUB 1410 
1720 IF Rl<>“0'' THEN RETURN 
1730 CX=4:LX=3îGOSUB 1770 
1740 INK 1,3!INK 2,13;INK 3,25 
1750 GOSUB 2020:RETURN 
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1760 î 

1770 '====== TRACE DU TABLIER ========== 

1780 CLSîINK 0,0:INK 1,0:INK 2,0;INK 3,0 

1790 PEN hLOCATE CX,LX;PRINT CHR$(252)+STRINGI(33,143)+CHR$(253);:FOR IX 
=1 TO 7fPRINJ TAB(4)STRING$(35,143)!:NE.n:PRINT TAB(4)CHR$(255)+STRIN6${3 
3,143)+CHR$(254) 

1800 PRINT CHR$(22)+CHRI(1) 

1810 PEN OjLOCATE CX,LX+1;PRINT CHR$(9)+CHR$(252)+STRINGI(2,143)+CHRI(25 
3)!!F0R I7.=l TO 6;PRINT CHRI{9)+CHRI(252)+ CHR$(143)+ CHRI(253)s jNEXTîPRI 
NT CHR$(9)+CHRI(252)+STRINGI(2,143)+CHRI(253) 

1820 PRINT TAB(4)CHR$(9)+STRINGI(4,143);!F0R IX=1 TO 6IPRINT CHR$(9)+STRI 
NGI(3,143)|!NEXTîPRINT CHRI(9)+STRINGI(4,143) 

1830 PRINT TAB(4)CHRI(9)+STRING$(4,143)|îF0R IX=1 TO èîPRINT CHR$(9)+CHR$ 
(255)+CHR$(143)+CHRI(254);:NEXT :PRINT CHRI(9)+STRIN6I(4,143 );îPRINT TAB( 
34)STRING$(4,143) 

1840 PRINT TAB(4)CHRI(11)+CHRI(9)+STRINGI(4,143) 

1850 LOCATE CX,LX+5îPRINT CHR$(9)+STRING$(4,143)î;FOR IX=1 TO 6:PRINT CHR 
l(9)+CHR$(252)+CHR$(143)+ CHRI(253 )|îNEXT;PRINT CHR$(9)+ STRINGI(4,143) 
1860 PRINT TAB(4)CHR$(9)+STRINB$(4,143);;F0R IX=I TO 6:PRINT CHR$(9)+STRI 
NG$(3,143)î;NEXT;PRINT CHRI(9)+STRIN6I(4,143) 

1070 PRINT TAB(4) CHR$(9)+CHR$(255)+STRINB$(2,I43)+CHR$(254)|:F0R IX=1 TO 
6îPRINT CHR$(9)+CHRI(255)+CHR$(143)+CHRI(254)|!NEXT:PRINT CHRI(9)+CHR$(2 
55)+STRING$(2,143)+CHRI(254) 

1880 PRINT CHR$(22)+CHR$(0) 

1890 'INK 0,0!lNK 1,3:INK 2,13!lNK 3,25 
1900 RETURN 
1910 J 

1920 '========== 4 GRAINES / CASE ====== 

1930 PRINT CHR$(30)îPRINT CHR$(22)+CHR$(1); 

1940 PEN 3;LX=8!F0R CX=10 TO 30 STEP 4SG0SUB 19B0îF 0R IX=1 TO ISOiNEXTsNE 
XT 

1950 LX=4!F0R CX=30 TO 10 STEP -4;B0SUB 1980îF0R n=l TO 150 :NEXTîNEXT 
1960 PRINT CHRI(22)+CHR$(0):PEN 2 
1970 RETURN 

1980 LOCATE CX.LXîPRINT CHRK136)sLOCATE CX,LX+2!PRINT CHRI(130)îLOCATE C 
X+2,LX+2îPRINT CHRK129)îLOCATE CX+2,LXîPRINT CHR$(132)îSOUND 7,50,2,12:F 
OR IX=1 TO 50JNEXT;RETURN 
1990 ; 

2000 '========= APPUI TOUCHE =========== 

2010 LOCATE 33,25:PEN 3:PRINT''APPUYEZ";!CALL iBBlBîLOCATE 33,25;PEN ÛîPRI 

NT STRIN6I(7,143);; PEN 2ÎRETURN 

2020 '======= REGLES DU JEU ============ 
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2030 PEN 2ÎL0CATE ^lô-'ERINT-LE PLATEAU DE JEU COMPORTE 12 ALVEOLES" 

2040 60SUB 2000 

2050 NMsFOR IX=10 TO 30 STEP 4:L0CATE n,12!PRINT NX;SOUND 7,200,5,13 jF 
OR J=1 TO 150!NEXT:NX=NM!NEXT 

2060 FOR IX=30 TO 10 STEP -4!L0CATE n,2jPRINT NXsSOUND 7,200,5,13:F0R J= 
1 TO 150;NEXT:NX=NZ+1:NEXT 

2070 LOCATE 1,18!PRINT"REHPLIES AU DEPART DE 4 BRAINES CHACUNE."îPRINT 
2080 BOSUB 2000:G0SUB 1920 

2090 LOCATE 1,20!PRINT"LES 6 ALVEOLES OU BAS ( NUMEROS 1 a 6 )'':PRINT 
2100 PRINT"CONSTITUENT VOTRE CAMP. CELLES DU HAUT^iPRINT 
2110 PRINT"SONT CELLES DE VOTRE ADVERSAIRE." 

2120 BOSUB 2000:«IND0H il,l,40,13,25;CLSIl 
2130 LOCATE 1,14 

2140 PRINT"CHASUE JOUEUR A TOUR DE ROLE PREND LE";PRINT 

2150 PRINT"CONTENU D'UNE CASE DE SON CAMP ET SEHE*rPRINT 

2160 PRINT"TOUTES LES GRAINES QU'ELLE CONTIENT UNE"!PRINT 

2170 PRINT"PAR UNE DANS CHAQUE CASE EN TOURNANT";PRINT 

2180 PRINT"DANS LE SENS INVERSE DES AIGUILLES":PRINT;PRINT"D'UNÊ MONTRE." 

2190 BOSUB 2000;CLS 11 

2200 LOCATE 1,16 ;PRINT"EXEMPLE DE DISTRIBUTION; CASE N"*CHR$(167)+"4.'' 
2210 LOCATE 23,13;PEN 3;PRINT CHR$(240) 

2220 FOR 1=1 TO 500;NEXT 
2230 PEN 1 

2240 PRINT CHRI(22)+CHRI(1);L0CATE 22,B;PEN 0;PRINT CHR$(136)+" "♦CHR$(13 
2);L0CATE 22,10;PRINT CHR$(130)+" "+CHR$(129) 

2250 FOR 1=1 TO BOO;NEXT 

2260 LOCATE 27,9;P£N 3;PRINT CHRI(251);SOUND 7,100,10,12 
2270 FOR 1=1 TO BOO;NEXT 

2280 LOCATE 31,9;PEN 3;PRINT CHRI(251);SOUND 7,100,10,12 
2290 FOR 1=1 TO BOO;NEXT 

2300 LOCATE 31,5;PEN 3;PRINT CHRI(251);SOUND 7,100,10,12 
2310 FOR 1=1 TO 800;NEXT 

2320 LOCATE 27,5;PEN 3;PRINT CHRI(251);SOUND 7,100,10,12 

2330 PEN 2;L0CATE 1,20;PRINT"SI LA CASE CONTIENT PLUS DE 11 GRAINES":PRIN 

T 

2340 PRINT-ON EFFECTUE UN SECOND TOUR EN SAUTANT";PRINT 
2350 PRINT"SA CASE DE DEPART," 

2360 BOSUB 2000; CLS 11 

2370 LOCATE 1,14;PEN 3;PRINT“PRISE;";PEN 2 

2380 PRINT;PRINT"SI LA DERNIERE GRAINE DISTRIBUEE TOMBE" 

2390 PRINT;PRINT"DANS UNE CASE ADVERSE CONTENANT DEJA " 

2400 PRINT;PRINT"UNE OU DEUX GRAINES,LE JOUEUR PREND" 
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r^îû FRINTiPRINT-TOUT LE CONTENU DE CETTE CA5E (2 OU 3)“ 

:420 OOS'JB ZÛOÛiCLS #1 

2430 LOCATE 1,l4îPRINT“SI LA CASE PRECEDANT CETTE CASE VIDEE“ 

2440 PRINT:PRINT"CDNTIENT 2 OU 3 GRAINES.CES GRAINES SONT" 

2450 PRINT''PRISES ELLES AUSSI ET AINSI DE SUITE" 

2460 PRINÎ;PRINT"EN REMONTANT JUSQU'A CE QU'ON ARRIVE SUR" 

2470 FRINT"UNE CASE NE CONTENANT NI 2 NI 3 GRAINES" 

2480 PRINT:PRINT"Oü DANS SON PROPRE CAMP." 

2490 QOSÜB 20ô0îCLS il 

2S00 LOCATE l,16;PEN 3 jPRINT"D0N DE GRAINES;" 

2510 PRINT;PRINT;PEN 2:PRINT“SI L'ADVERSAIRE N'A PLUS DE GRAINES" 

2520 PRINT;PRÎNT'’IL FAUT LUI EN DONNER OBLIGATOIREMENT." 

2530 PRINTîPRINT'SI C’EST IMPOSSIBLE.LA PARTIE S'ARRETE." 

2540 OOSUB 2000:CLS il 

2550 LOCATE i,l8;PEN 3;PRINT''6AIN DE LA PARTIE";PEN 2 

2560 PRINT;PRINT; PRINT;PRINT“LE PREMIER A AVOIR 24 GRAINES A GAGNE." 

2570 GOSüB 2000;CLS il 

2590 LOCATE 1.ie;PRINT"LE PROGRAMME PERMET LE RETOUR EN ARR{ERE";PRÎNT"AV 
EC OU NON LA REPRISE D’UN COUP AVEC'‘;PRINT:PR1NT"LES TOUCHES •+CHR$(242) + 
“ ET '■+CHRM243) 

25^0 GOSÜB 2C00;RETURN 

2600 REM ===== RETOUR EN ARRIERE ====== 

2610 IP COUPM THEN 400 
2620 LOCATE 1,21;PRINT DI 
2630 COUPX=COUPM 
2640 G05UB 2690 
2650 INTER*/=AR(C0UP7..15) 

2660 GOTO 400 
2670 ; 

2680 '-TRANSFERTS. 

2690 FOR I7.=l TO QX:B(I7.)=AR(C0UP7.,I7.);NE.U;G0SUB 1140;RETURN 

2700 CQÜP7.=C0UP7.+I:C0UPMA77.=C0UP7.;IF C0UPX=300 THEN IF B(Q7J>B(PX) GOTO 3 

80 ELSE IF B(PX)>B(QX) THEN GOTO 560 ELSE LOCAîE 1.21;PEN 3;PRINT‘' 

MATCH NUL .... ";60TO 570 

2^10 FOR I7.=l TO C7.;AR(COUPX.IX)=B(I7.);NEU 
2720 RETURN 

2730 ========= avance ================= 

*2^40 IF COUP/:=COüPMA.i(:( THEN 400 
2:'50 C0UP7.=C0UPX+1 
im INTER7.=AR(C0UP7.,I5) 

2780 GOSÜB 2690 
27^0 GOTO 400 
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CHAR D'ASSAUT 



Emmanuel ALLINGRY 


V ous conduisez un char d'assaut en pays ennemi. Votre mission 
est de détruire les fantassins qui viennent à votre rencontre, mais 
il faudra en permanence tenter d'éviter les mines. En outre, votre car¬ 
burant est limité et, pour éviter de tomber en panne d'essence, vous 
devrez périodiquement vous ravitailler en attrapant des bidons dispo¬ 
sés sur votre parcours. Bien plus grave encore, votre moteur s'use 
au fil des kilomètres parcourus et devient de plus en plus glouton. 

10 SYMBOL AFTER 42 

20 SYMBOL 42.0,16,84.56,254.56,84.16 
30 SYMBOL 252,24,36,60,60.60,60.60.24 
40 SYMBOL 171,16,16,84,124,124.124,124.84 
50 GOTO 570 
60 MODE 1 

70 INK 0,15!INK l.OîBORDER 15 


80 PEN 1 


90 PRINT 

VOUS 

100 PRINT " 

CONDUISEZ " 

110 PRINT " 

UN CHAR D'ASSAUT" 

120 PRINT 

EN PAYS ENNEMI." 

130 PRINT"" 


140 PRINT " 

VOTRE MISSION " 

150 PRINT " 

EST D'ECRASER" 

160 PRINT " 

LES FANTASSINS ENNEMIS. 

170 PRINT"" 


180 PRINT 

* MAIS ATTENTION " 

190 PRINT 

VOUS DEVEZ EVITER" 

200 PRINT 

" LES MINES." 

210 PRINT 

U 11 
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1 


! 

i7 



i 

r 


i. 

r 


220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


EN OUTRE* 

" VOTRE CARBURANT" 

EST LIMITE." 


VOUS DEVEZ DONC" 
VOUS RAVITAILLER" 
EN ATTRAPANT" 

DES BIDONS" 

SUR VOTRE PARCOURS. 


PRINT 
PRINT 
PRINT " 

PRINT"" 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT" 

PRINT"" 

PRINT"Pour continuer,appuyez sur C" 

IF INKEY{62)=0 THEN 350 
GOTO 330 
MODE 1 

AU COURS" 

DES KILOMETRES" 

VOTRE MOTEUR S'USE 
ET CONSOMME 
D'AVANTAGE." 
PRINT"":PRINT""!PRINT"" 

PRINT"ATTEINDRE CERTAINS SCORES AJOUTE 


PRINT" 

PRINT" 

PRINT" 

PRINT* 

PRINT" 


DU CARBURANT 


430 PRINT""sPRINT""!PRINT"*!PRINT""!PRINT"" 
i‘:. 440 PRINT"Pour continuer,appuvez sur C" 

450 IF INKEY(62)=0 THEN MODE IsGOTO 470 
460 GOTO 450 

r 470 LOCATE 10,2: PRINT CHRI(171)."vous" 

480 LOCATE 10,4 : PRINT CHR$(24B)."fantassin" 

490 LOCATE 10,6; PRINT CHRI(42) ,"dne“ 

500 LOCATE 10,8: PRINT CHR$(252),"bidon" 

510 PEN 3: LOCATE 10,10 : PRÎNT CHRII248),"lieutenant":PEN 1 
520 LOCATE 10,15:PRINT CHR$(242);LOCATE 13,15:PRINT"gauche" 
530 LOCATE 10,17:PRINT CHR$(243);LOCATE 13,17: PRINT"droite" 
540 LOCATE l,20:PRINT"Pour continuer,appuyez sur C" 

550 IF INKEY(62)=0 THEN 570 
; 560 GOTO 550 

570 INK 0,15:INK 1,0,26:B0RDER 15:H0DE 1 
580 PEN 1 

590 LOCATE 12 ,14: PRINT"CHARS D'ASSAUT" 

600 PEN 3 

, 610 PLOT 175,170:DRAN 399,170 




1 


I 


f 

l 




- 


) 





b 


i. 





620 LOCATE 20,25;PRINT''Pour jouer,appuyez sur J" 

630 LOCATE 20,20!PRINT''Pour des précisions,appuyez sur P" 

640 IF INKEY(45)=0 THEN 670 
650 IF INKEY(27)=0 THEN 60 
660 GOTO 640 

670 tlOOE OiINK 1,0:INK 0,1S:B0RDER 15:1NK 4,1 
680 I=10:k=((20-l)/2)+0.5 
690 car=200 
700 is=k!n=l+k 

710 v=RND{l)*l+kîH=RND(l)#l+k!x=RND{l)MHJY=RND{l)»l+kîz=RND(I)»l+kîbid= 

RND(l)*l+k:/!iie=RND(l)*l+k:iif=RND(l}*l+k 

720 PEN 0 

730 f=l/2+k-0.5: LOCATE f,20:PRINT CHR$(171) 

740 PLOT 90,25,4îDRAW 130,375,4:PL0T 555,25,4!DRAW 515,375,4 
750 â=Bîb=li;c=14!d=17!e=20:bi=16!ii=13î«12=10! h=1.5îg=0!5C=0 
760 PEN 4 

770 LOCATE ll,2!PRINT"carburant“ 

780 REM 

790 PEN 3! LOCATE v.aiPRINT CHR$(24B) 

800 PEN 4 

810 LOCATE v,a-l!PRINT CHRI(32) 

820 a=a+l 

830 IF a=21 THEN a=8!LOCATE v,20îPRINT CHR$(32):IF f=ROUND(v) THEN SOUND 
l,200,20!v=RND(l)»l+k!SC=sc+50:LOCATE 2,2:PRINT''score“,sc ELSE v=RND(l)* 
1+k 

840 G0SU6 1340 
850 PEN 5 

860 LOCATE HH,Bi2îPRINT CHRI(42) 

870 PEN 4 

880 LOCATE MH,Bi2-l!PRINT CHRI(32) 

890 ffli2=«i2+I 

900 IF Bi2=21 THEN Bi2=B:L0CATE MIF,20!PRINT CHR$(32)!lF f=ROUND(HIF) THE 
N SOUND 1,1200,20 îBOTO 1390!Bif=RND(l)*l+k ELSE iiiif=RND(l)*l+k 
910 PEN 7 

920 LOCATE H,b!PRINT CHRI(248) 

930 PEN 4 

940 LOCATE H,b-l!PRINT CHRI{32) 

950 b=b+l 

960. IF b=21 THEN b=8!LDCATE n, 20!PRINT CHR${32)!lF f=ROUND{w) THEN SOUND 
1,200,20 !H=RND(l)*l+k!5C=5C+15!L0CATE 2,2!PRINT''score%5C ELSE h=RND( 1) 
*l+k 

970 PEN 5 


lis 




980 LOCATE t1Ie,ffli!PRINT CHR$(42) 

990 PEN 4 

1000 LOCATE l1Ie,flii-l!PRINT CHRI(32) 

1010 ni-fil'^1 

1020 IF ai=21 THEN m=8 îLOCATE MIe,20:PRINT CHR$(32):IF T=ROUND(MIe) THE 
N raie=RND(l)4l+k îSOUND 1,1200,20 :EDTO 1390ÎELSE ii)ie=RND(l)»l+k 
1030 PEN 7 

1040 LOCATE x,C!PRINT CHRI(248) 

1050 PEN 4 

1060 LOCATE x,c-l!PRINT CHRI(32) 

1070 GOSUB 1340 
1080 c=c+l 

10*^0 IF c=21 THEN c=8!L0CATE x,20îPRINT CHRt(32)!lF ROl/ND(x)=f THEN SOUND 
l,200,20îx=RND(l)*l+k!5-:=3C+15:L0CATE 2,2!PRINT''5Core*.5C ELSE x=RND(l) 
♦1+k 

1100 PEN 7 

1110 LOCATE v,djPRÎNT CHRI(248) 

1120 PEN 4 

1130 LOCATE v,d-l!PRINT CHR$(32) 

1140 d=d+l 

1150 IF d=21 THEN d=8:L0CATE v,20!PRINT CHRIi32)!lF ROLiND(vl=T THEN SOUND 
l,200,20:v=RNDn)*l+k!5.:=5C+15!LOCATE 2,2!PRINT''5core",5C ELSE v=RND(I) 
♦1+k 

1160 PEN 7 

1170 LOCATE z,e:PRINT CHRI(24B) 

1180 PEN 4 

1190 LOCATE z,e-l:PRINT CHR$(32) 

1200 e=e+l 

1210 IF e=21 THEN e=8!L0CATE z,20jPRINT CHR$(32)îIF R0UND(2)=f THEN SOUND 
l,200,20tz=RND(l)+l+k :5C=5 c+15îL 0CATE 2,2!PRINT''5core",5C ELSE z=RNDIl) 
♦1+k 

1220 GOSUB 1340 
1230 PEN 10 

1240 LOCATE bid,biîPRINT CHR$(252) 

1250 PEN 4 

1260 LOCATE bid,bi-l:PRINT CHfi$(32) 

1270 bi=bi+l 

1280 IF bi=21 THEN bi=8;L0CATE bid,20îPRINT CHR$(32 )îIF ROUND(bid)=f THEN 
SOUND l,500.20!bid=RND{l)+l+k !car=Câr+35îL0CATE 10,3:PRINT INT(car) ELS 
E bid=RND(l)+I+k 

1290 çi=g+l;IF Q/l0=INT(q/10) THEN b=b+0.1 

1300 car=car-hiIF car<0 THEN 1460 ELSE LOCATE 10,3!PRINT INT(car) 
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1310 IF £c;lOOO AND 11=0 THEN l l=l!car=Câr+500 
1320 IF 5c)2500 AND 12=0 THEN 12=l!car=râr+lÔôÛ 
1330 GOTO 780 

1340 IF INKEY(8)=0 THEN f=f-l:IF f<in-l THEN 1530 

1350 LOCATE T,20:PRINT CHR$(171):L0CATE f+l,20îPRINT CHR$(32) 

1360 IF INKEY{I)=0 THEN f=f+I;IF f>n+l THEN 1530 

1370 LOCATE f,20:PRINT CHR$(171):L0CATE f-l,20îPRINT CHR$(32) 

1380 RETURN 

1390 MODE l! PEN 3!L0CATE 15,20:PRINT''P£R0U'' 

1400 IF 5c)scl THEN 5cl=5c 

1410 PRINT"''!PRINT''HEILLEUR SCORE",sel 

1420 PEN 1 

1430 LOCATE 1,25;PRINT"V0US AVEZ RENCONTRE UNE MINE" 

1440 LOCATE l,l!PRINT*'5Core'',5C 

1450 FOR g=0 TO 5000;NEXT!80TO 570 

1460 MODE 1: PEN 3:L0CATE 15,20:PRINT"PERDU" 

1470 IF sc>£cl THEN £Cl=5C 

1480 PRINT""!PRINT*MEILLEUR SCORE",sel 

1490 PEN 1 

1500 LOCATE l,l;PRINT"score‘',sc 

1510 LOCATE 1,25!PRINT"VDüS ETES TOMBE EN PANNE DE CARBURANT" 

1520 FOR a=0 TO SOOOîNEXTjGOTO 570 

1530 MODE 1: PEN 3:L0CATE 15.20:PRINT"PERDU" 

1540 IF sc>£Cl THEN £cl=sc 

1550 PRINT"“!PRINT"HEILLEUR SCORE",sel 

1560 PEN 1 

1570 LOCATE 1,24!PRINT"V0US ETES SORTI DE VOTRE ROUTE ET VOUS VOUS ETES 
ENLISE" 

1580 LOCATE 1,l:PRINT"scDre",se 
1590 FOR g=0 TO SOOÛîNEXTîGOTO 570 
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CONSOMMATION 
DE CARBURANT 


Michel ARCHAMBAULT 


P our calculer une consommation en litres aux 100 km, une simple 
calculatrice ou dix lignes de Basic sont suffisants. Alors, pourquoi 
un programme aussi long ? C'est le super luxe ! 

La saisie est facile car elle supprime le côté fastidieux et les risques > 
d'étourderies de la chose ; enfin, le grand PLUS est l'enregistrement 
automatique, sur cassette ou disquette, des données. 

Ceci permet d'avoir à l'écran l'évolution de la consommation au cours 
des mois et des années (très instructif I). C'est donc un logiciel de comp¬ 
tabilité automatique très spéciale qui permet de "surveiller" plusieurs 
véhicules. | 

Il a été conçu pour qu'il soit adaptable à la fois sur cassette ou dis- | 
quette sans la moindre modification. I 


PETIT DESCRIPTIF 

Chaque fois que vous prenez du carburant, vous notez sur un carnet 
de bord les litres, le kilométrage au compteur, la date et la lettre P s'il 
s'agissait d'un plein. 

A des intervalles quelconques, par exemple tous les mois, vous entrez 
certaines de ces données au clavier de votre AMSTRAD. C'est très 
rapide. L'écran vous affiche alors les éléments suivants : 

— Entre chaque plein, la consommation en litres, en litres aux 100 km ' 
et la distance en kilomètres. 

— La même chose mais cumuls et moyennes depuis le début de la sai¬ 
sie en cours. 

— Tableau final : résultats de la saisie + ceux de la saisie précédente 
4- moyennes et cumuls depuis la date des débuts des relevés. 

Ces données sont alors enregistrées sur un fichier portant le nom du 
véhicule en question. 
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A la saisie suivante (un ou deux mois plus tard), on entre seulement 
le nom de la voiture ; le programme charge alors le fichier correspon¬ 
dant et vous invite à la suite de la saisie, là où vous l'aviez arrêtée. 
Pas d'erreurs possibles. 

De nombreuses lignes BASIC sont consacrées à la clarté des tableaux 
et à guetter les étourderies d'un opérateur distrait. D'accord, c'est plus 
long à teper, mais après, on est tranquille. 

C'est un logiciel utilitaire, pas un programme gadget. Il faut choisir... 


LE MODE D'EMPLOI 

Après un titre quelque peu évocateur, on doit entrer le nom de la voi¬ 
ture : huit caractères maxi, sans espace ni signe de ponctuation et 
commençant par une lettre. Si vous avez une Peugeot 205, n'entrez 
pas "205", mais plutôt "P205". Apparaît alors le menu principal, car¬ 
refour du programme : chargement (lecture) du fichier, saisie, sauve¬ 
garde et "première fois", autrement dit, l'ouverture d'un fichier voi¬ 
ture. On y demande le kilométrage et la date du premier plein ; les litres 
y/ 0 rsés, on s'en moque. Cette opération enchaîne sur la saisie. 

Les fois suivantes, on démarre directement sur l'option C (chargement 
du fichier). C'est rapide puisqu'il ne contient que neuf valeurs. L'écran 
vous affiche alors la date et le kilométrage du dernier plein enregistré, 
afin de vous situer dans votre carnet. Puis vous êtes invité à entrer la 
date et le kiloniétrage de la ligne suivante du carnet, même s'il ne s'agit 
pas d'un plein. Puis commence la saisie. 


LE TABLEAU DE SAISIE 

Il est constitué de six WINDOWS *. un pour les entrées, deux pour les 
résultats, et trois pour les légendes de colonnes, afin de les protéger 
du scrolling. 

La fenêtre des entrées est celle du haut ; trois colonnes où le curseur 
ira se positionner automatiquement. 

a) Entrée des litres. Enter. 

b) Le curseur va sur la colonne "Plein". Si ce n'est pas le cas, faites 
Enter, et le curseur revient sur l'entrée des litres. Si c'est un plein, tapez 
"P". Le curseur va alors dans la colonne "KM" où vous entrez le kilo¬ 
métrage à ce plein ; et Enter. 

c) Aussitôt les résultats apparaissent dans les fenêtres inférieures ; à 
gauche, concernant cette "étape" de plein à plein. A droite concer¬ 
nant cumuls et consommation moyenne depuis le début de la saisie. 

d) Le curseur est revenu sur l'entrée litres, on poursuit de même. 

e) Vous venez de constater une erreur sur les litres entrés, vous ayez 
déjà fait Enter, et le curseur est dans la colonne "Plein" : tapez "E" 
et Enter ; la dernière entrée de litres est oubliée. 
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f) Fin de saisie. Le curseur attend une entrée de litres ; tapez "F" et 
Enter. Apparaît alors le... 


TABLEAU DES BILANS 

En haut de Técran, le bilan de cette saisie (c'est donc la dernière ligne 
de la fenêtre de droite de l'écran de saisie). Au milieu, le bilan de la 
saisie précédente (avec ses dates). En bas, le bilan global calculé à partir 
de la toute première saisie, donc pouvant rassembler plusieurs années. 

NOTE : Lors de cette première saisie (option "première fois"), il est 
norrrial que la "saisie précédente" n'apparaisse pas... 

Ceci vu, on presse une touche quelconque et le nouveau fichier est enre¬ 
gistré. Retour au menu. Fin. 


L'ENREGISTREMENT DES FICHIERS 

Un nouveau fichier écrase l'ancien. Si vous avez un lecteur de disquet¬ 
tes, pas de problèmes ; sur une même face, il y a le programme CON- 
SOM et autant de noms de fichiers qu'il y a de véhicules à "surveiller". 


Avec magriétophone, une cassette pour le programme et autant de cas¬ 
settes fichiers qu il y a de véhicules (en débuts de cassettes). Toujours 
rebobiner la cassette fichier après lecture. 


LE PROGRAMME 

Il est en "structuré", les modules étant appelés à partir du menu (ligne 
1000). En lignes 65000, nous avons rassemblé la liste alphabétique 
des variables (on est ainsi sûr de ne pas l'égarer... ). 

Les messages à l'écran sont avec minuscules accentuées, ce qui expli¬ 
que des signes bizarres dans le listing ; les accollades sont obtenues 
par SHIFT + crochets, elles donneront "é" et "è" ; le a commercial 
se transformera en "à". 

CALL &BB06 bloque le programme jusqu'à ce que l'on presse une tou¬ 
che. 

Le nom de la voiture, VOIT$, peut être entré indifféremment en majus¬ 
cules ou en minuscules (ligne 760). A ce propos, nous avons débus¬ 
qué un bug de l'AMSTRAD : 

Il y avait une ligne 770 VOIT$= UPPER$(VOIT$) qui nous a joué la 
farce suivante ; à la lecture du fichier, nous obtenions le message 
fichier inconnu" (sur lecteur de disquettes), et pour cause ! Le nom 
ASCONA" était devenu "OOOOAN" sur l'enregistrement... En sup¬ 
primant cet UPPER$, tout est devenu normal. C'est inexpliqué, mais 
il faudra s'en souvenir. 








10 'CONSOMHATION DE CARBURANT 

20 'Michel ARCHAMBAULT-1985 / AMSTRAD 

40 DEFINT I.J,M,N 

50 GQSUB 51000:'AZERTY 

60 INK 0,1;INK 1,24 

70 PAPER 2:PEN 3:BORDER 15 

100 'TITRE 

110 MODE 0:CLS 

120 LOCATE 5,4;PRINT "C 0 N S 0 M" 

130 FOR 1=0 TO 200 STEP 2:PL0T 0.1,9 
140 DRAWR 640,0:NEn!PEN 0 

150 FOR 1=1 TO 20:L0CATE I,7;PRINT ''l":FOR J=1 TO 200;NE)(TiNEXT 

160 FOR 1=1 TO 1000:NEn 

170 FOR Z=200 TO 15 STEP -Û.SiPLOT 0,Z,2 

IBO DRAWR 640,0:NEXT;L0CATE 2.23;PRINT ■'M.ArchafBbâült-1985'' 

190 FOR 1=1 TO 2000!NEXT 

700 'VOITURE 

710 MODE I;CLS:PEN 3 

720 LOCATE 12,5:PRINT "NOM DE LA VOITURE:":PEN 0 
730 LOCATE 7,7:PRINT "(sans espace ni ponctuation)" 

740 LOCATE 8,9;PRINT "Icoflimencez par une lettre)" 

750 LOCATE 17,12:PRINT STRINBKB,"."):LOCATE 17.I2:1NPUT "".VOITI 
760 IF VAL(V0IT$)>0 OR LEN(V0ITf)>8 T.HEN PRINT CHR$(7):50TO 750 
1000 ' MENU 

1010 PEN 3:PAPER 2:CLS:FPF=0 

1020 LOCATE 17,3:PRINT "N £ N U":PEN 0 

1030 LOCATE 12,6:PRINT "C : CHARGEMENT FICHIER" 

1040 LOCATE 12,B:PRINT "E : ENTREE DES LITRES." 

1050 LOCATE 12,10:PRINT "S : SAUVEGARDE FICHIER." 

1060 LOCATE 12,12:PRINT "P : PREMIERE FOIS." 

1070 LOCATE 12,14;PRINT "F : FIN." 

1080 TEXI=*CESPF*:PEN 3:GDSUB 50000:PEN 0 

1090 ON K GOSUB 2000,5000,10000,15000,20000 

1100 GOTO 1000 

2000 'CHARGEMENT DU FICHIER 

2010 PAPER 0:PEN 3;BORDER 2:CLS 

2020 LOCATE 6,6:.‘>RÎNT "CHARGEMENT DU FICHIER VOITURE.":PEN 1 

2030 LOCATE 19,12:PRINT "OK ?";TE)(l=*ON";GOSUB 5000Û:L0CATE 1,24:PRINT CH 

RII18) 

2040 IF K=2 THEN 2900 

2050 LOCATE 4,15:PRINT "Priparez la Cassette ou Disquette." 
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2060 LOCATE 9,17!PRINT “puis pressez une Touche...":CALL îtBB06 
2100 OPENIN VOITI 

2110 INPUT I9,DAT0$,DATDI,DATF$,K0,KD,DSP,KF,LS,LT0T 
2120 CLOSEIN 
2200 CLS 

2210 LOCATE 12,4:PEN SîPRINT "VOITURE ";VOIT$;" fsPEN 2 
2220 LOCATE 12,7!PRINT "Prlcldente Saisie:“ 

2230 LOCATE 10,10iPRINT "du "iDATDI;" au "|DATF$" 

2240 LOCATE 10,12:PRINT '’de"!KD;"ka e''!KF!"k«'' 

2250 LOCATE 19,16;PEN 1;PRINT "OK ?";TEXI="ON’'!GOSUB 50000 
2260 IF K=2 THEN 2900 
2900 RETURN 

5000 'ENTREE DES DONNEES 

5010 PEN 3:CLS;IF FPF=1 THEN 5200 

5050 LOCATE 12,3îPRINT "ENTREE DES DONNEES;";PEN 0 

5060 LOCATE 4,6;PRINT "Dernier Relev{;";DATFI;KF;"kB" 

5070 LOCATE 15,8;PRINT "Date DCpart;'';GOSUB 12000 

5080 LOCATE 11,17;INPUT "kn dipart; ",KD$;KD=VAL(KDI);IF KD<KF THEN 5080 

5090 LOCATE 10,20:PRINT DAT$;“ &“;KDî“kiii ; OK ?";TEX$=''ON";SOSUB 50000 

5100 IF K=2 THEN 5000 

5110 DAT1$=DATI;KHP=KF 

5200 'TABLEAU DE SAISIE 

5210 WINDOW ll,l,40,l,3:PAPER ll,l;PEN I1,0;CLS #1 

5220 PRINT ihPRINT lll,TAB(4)î''Litres;";TAB(17);''PLEIN“;TAB(2B);"C0MPTEUR 

. « 

5230 PRINT #l,TAB(4);"IFIN=F)";TAB{18);"(P)";TAB(30);"{kin)" 

5240 WINDOW t2,l,40,4,6;PAPER il2,l:PEN I2,0:CLS i2 

5250 WINDOW I3,1,19,7,11;PAPER I3,2;PEN I3,0;CLS I3;PRINT 43 

5260 PRINT #3JAB(3);“Plein a Plein;";PRINT 13 

5270 PRINT ♦3,TAB(3)î*L"îTAB(10);"k«''}TAB(15);"L/100" 

5280 WINDOW #4,20,40,7,IhPAPER #4.0;PEN #4,3;CLS #4;PRINT #4 

5290 PRINT i4,TAB(5);"Bilan cu«ul{;*;PRINT #4 

5300 PRINT l4,TAB(4)!"L"|TAB(10)î"k«";TAB(16);"L/100" 

5310 WINDOW #5,1,19,11,25;PAPER #5,2;PEN i5,0;CLS #5 
5320 WINDOW I6,20,40,11,25:PAPER t6,0;PEN #6,3;CLS #6 
5330 BORDER 15 
6000 'SAISIE 

6005 N=1;M=1;LT=0;T0LT=0 

6010 LOCATE I2,6,N;INPUT #2,“",LI;IF UPPERt(L$)=“F" THEN 7000 
6030 L=VAL(L$);IF L=0 THEN PRINT CHR$(7)|;G0T0 6010 
6040 LT=LT+L 

6050 LOCATE #2,19,2:INPUT t2,''",PI;IF Pl="“ THEN N=N+1;6DT0 6010 





6055 IF UPPERI(PI)=“E" THEN LT=LT-L:NsN-l:GOTO 6010 

6060 IF UPPERKPDO'?" THEN 6050 

6070 LOCATE i2,29,2îINPUT I2,-,KH$!KH=VAL(KMI) 

6080 IF KM<=KMP THEN PRINT CHR$(7);;G0T0 6070 
6100 DKM=KM-KMPîKHP=KH!C 0NP=100»LT/DKH 
6110 TOLÎ=TOLT+LT;TKM=TKM+DKI1îCONGslOO*TOLT/TKH 
6150 LOCATE #5,2,H!PRINT #5,USING''#IJ'‘;LT 
6160 LOCATE I5,8,M!PRINT l5,USING*'iMI'';DKH 
6170 LOCATE I5,15,I1!PRINT I5,USING*#I.#“;C0NP 
6180 LOCATE i6,2,HjPRINT l6,USING“illl.t"|T0LT 
6190 LOCATE I6,9,M!PRINT I6,USING“MM";TKM 
6200 LOCATE #6,17,«!PRINT l6,USING"##.t"!C0NG 
6210 H=H+l;N=N+l!LT=0:G0T0 6010 
7000 'TABLEAU FINAL 
7010 PAPER OîCLS 

7020 LOCATE 8,6!PEN 1:PRINT “Date de ce dernier Plein :“îPEN 2îG0SUB 1200 
0 

7030 CLSîBORDER 12!L0CATE 2,3 jPRINT “A ce Relevl du “;DAT1I;* au ";DAT$ 
7040 LOCATE 1,5!PRINT avec*îR0UND(T0LT,l);"L.5oit“îR0UND(C0NG,l); 

“L/lOO kin" 

7050 PRINT STRINBII40,'' "IiIF FPF^l THEN 7090 

7060 PEN 2ÎLDCATE l.SsPRINT “Relevl pr{c}dent,du “îDATDI;” au “;DATF$ 

7070 LOCATE 1,10;PRINT DSP;"ki avec'’;RDUND(LS,l);"L,soit“;R0UND(100*LS/DS 
P.Dj-L/lOO kfl" 

7080 PRINT STRING$(40,''_'') 

7090 LS=T0LTjLT 0T=LT0T+T0LT!DATDI=DAT1I!DATFI=0AT$!KF=KM!DSP=TKM 
7100 PEN 3:L0CATE 3,14!PRINT “BILAN GENERAL du “;DAT0$f“ au “|DATF$ 

7110 LOCATE 1,16;PRINT KF-K0î"kii âYBc";ROUND(LTOT,l);"L,soit“;R0UND(10O»L 
T0T/(KF-K0),1);“L/100 km* 

7120 PEN lîLOCATE 8,20!PRINT "SAUVEGARDE DE CES VALEURSî" 

7130 LOCATE 3,22!PRINT "Prlparez la Cassette ou Disquette," 

7140 LOCATE 8,24!PRINT "puis pressez une Touche..," 

7150 CALL l(BB06 
7160 GOSUB 10000 
7170 RETURN 

10000 ' ENREGISTREMENT DU FICHIER 
10010 OPENOUT VOITI 

10020 WRITE #9,DAT0I,DATD$,DATF$,K0,KD,DSP,KF.LS,LT0T 
10030 CLOSEOUT 
10900 RETURN 
12000 'ENTREE DATE 

12010 LOCATE 17,10;INPUT “jour; “,Jl!J=VAL(JI)îIF J<1 OR J>31 THEN 12010 
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12020 LOCATE 17,12;INPUT "dioiî: %H$;I1=VAL(H$):IF I1<1 OR H>12 THEN 12020 
12030 LOCATE 16.14:INPUT "3nn{eî ",ANIsAN$=RIGHTI(AN$.2)! IF VAL(ANI)<0O T 
HEN 12030 

12040 9AT$=JI+"/'‘+M$+"/“+ANI 

12900 RETURN 

15000 'PREMIERE FOIS 

15010 BORDER 2:PAPER 1:PEN 0:CLS 

15020 LOCATE 2,4!PRINT “Vous ouvrez un NOUVEAU Fichier voiture." 

15030 LOCATE IB.ôîPRINT "OK ?''!TEX$="ON'‘:BDSUB 50000:IF K=2 THEN 15900 
15035 CLS;LOCATE 9,2:PRINT"Au tout premier Plein:" 

15040 LOCATE 8,4:INPUT"KiIoifi{traQe D{part:".KO$ 

15050 K0=VAL(K0$):IF Kû=0 THEN 15040 

15060 LOCATE 16,?:PRINT "en Date du:":60SUB 12000 

15065 LOCATE 8,1B;PRINT "N'ENTREZ PAS CES LITRES !“:FOR I=l TO 4000:NE](T 

15070 DATOI=DAT$;DATD$=DATOt:DATFI=DATOI;DATll=DATOI 

15080 kF=K0:LS=0:LT0T=0:KMP=K0:KD=K0 

15090 FPF=1 

15100 PAPER OiGQSUB 5000 
15900 RETURN 
20000 ‘FINAL 
20010 PAPER 0:PEN 1:CLS 

20020 LOCATE 10.12:PR1NT "VOUS POUVEZ ETEINDRE" 

20030 LOCATE 11.14:PRINT "ou relancer par RÜN.";PRINT:PRINT 
20100 END 

49999 END 

50000 'REPONSE A UN MENU 
50010 LT=LEN(TE)($):R$=''" 

50020 LOCATE 15-LT,24:PRINT "R{ponse (": 

50030 FOR 1=1 TO LT-1 

50040 PRINT MID$(TE)($,I,1);",“;:N£XT 

50050 PRINT RIGHT$(TEX$,l);")'':CHR$(l54);CHR$(243);CHR$i2û7) 

50060 TEX$=UPPER$ITEX$) 

50070 WHILE R$="":R$=INKEY$:WEND 
50060 R$=UPPERI(R$):K=INSTR(TEX$,R$) 

50090 IF K=0 THEN R$="";PRINT CHR$(7);:60T0 50070 

50100 RETURN 

51000 ' A2ERTY ACCENTUE 

51010 SYMBOL AFTER 6 

51020 SYMBOL 64,96,48,120,12,124,204.118,0 
51030 SYMBOL 91.0.56,108,56,0,0.0.0 
51040 SYMBOL 92,0,0,60,102.96,102,60.24 
51050 SYMBOL 93,60,96,60,102.60,6,60.0 





51060 

51080 

51100 

65000 

SYMBOL 

SYMBOL 

RETURN 

» 


65001 

CONS 

ét'0û2 

CONP 

65003 

DAT$ 

65004 

DATOI 

65005 

DATll 

65006 

DATDI 

650Û7 

DATFI 

65008 

DKM 

65009 

DSP 

65010 

FPF 

65Ü11 

1 

65012 

K 

65013 

KO 

6j014 

KD 

65015 

KF 

65016 

KM 

65017 

KMP 

65018 

L 

65019 

LS 

65020 

LT 

o5021 

LTOT 

65022 

M.N 

65023 


65024 

TKM 

65025 

TOTL 

65026 

VQIT$ 

6502"^ 

T 

< 

65028 



123,12,24.60,102.126.96.60.0 

125,48.24.60.102.126,96.60,0 

•LE6ENDE DES VARIABLES-— 
CONSOHMATION GLOBALE 
CONSOM. OE PLEIN A PLEIN 
DATE AU CLAVIER 
DATE OUVERTURE FICHIER 
DATE DEPART EN COURS 
DATE DEPART PRECEDENT 
DATE FIN DE SAISIE 
DISTANCE ENTRE DEUX PLEINS 
DISTANCE SAISIE PRECEDENTE 
FLAG PREMIERE FOIS 
UNITE DE COMPTAGE 
INDICE DE MENU 
KM A L’OUVERTURE DU FICHIER 
KM DEPART SAISIE 
KM FIN DE SAISIE 
KM AU PLEIN 
KM AU PLEIN PRECEDENT 
LITRES ENTRES 
LITRES DE LA SAISIE 
LITRES ENTRE DEUX PLEINS 
LITRES TOTAUX 
COMPTAGES DE LIGNES 
SIGLES DU MENU 
DISTANCE TOTALE EN SAISIE 
LITRES SAISIE PRECEDENTE 
NOM DE LA VOITURE 
UNITE DE COMPTAGE 
-FIN DE LISTING. 







LE LECTEUR DE DISQUETTES 

POURQUOI ? 


Michel ARCHAMBAULT 


B eaucoup d'entre vous "lorgnent" depuis quelque temps vers le 
lecteur de disquettes (on dit aussi "DRIVE") AMSTRAD DDI-1, 
et ce en se disant "qu'aurais-je de plus ?". En fait, une foule de ques¬ 
tions auxquelles nous allons répondre en essayant d'être clair, donc 
en évitant d'entrer dans des détails d'utilisation (d'autant plus qu'ils 
sont dans la notice du DDI-1... ). 


QU'Y A-T-IL DANS LA BOÎTE ? 

Tout d'abord une excellente notice en français de six millimètres 
d'épaisseur, illustrée et facile à comprendre. 

Un boîtier plat (l'interface) qui s'enfiche à l'arrière du CPC 464, et duquel 
sort un large câble plat. Le lecteur proprement dit, de la taille d'une 
cartouche de cigarettes, assez lourd, équipé d'un cordon secteur et 
avec, à l'arrière, un interrupteur marche-arrêt et un connecteur rece¬ 
vant le large câble plat. Une disquette enregistrée, numérotée, super 
précieuse (difficilement remplaçable), qui possède, sur une face, tou¬ 
tes les routines d'exploitation et sur l'autre, le langage LOGO (LOGO ? 
BOF...). 

Il n'a a pas de disquette vierge. Pensez donc à ne pas revenir sans. 
Au moins deux : une qui sera un duplicata de la disquette précieuse 
(à ranger en lieu sûr) et une autre pour sauver vos programmes sur cas¬ 
settes. 


C'EST QUOI UNE DISQUETTE ? 

C'est un boîtier plat et rigide mesurant 100 x 80 x 5 mm. C'est le "stan¬ 
dard" trois pouces (à ne pas confondre avec le trois pouces et demi...). 
A l'intérieur, un disque mince recouvert recto-verso d'un vernis magné¬ 
tique ; le même que sur les bandes magnétiques. 


I 
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La suite rappelle un peu’Ies avantages du disque 33 tours sur la cas¬ 
sette enregistrée : quand vous voulez écouter telle chanson, vous lisez 
sur l'étiquette que c'est l'air numéro cinq, et directement vous posez 
le bras de lecture sur cette plage. C'est l'ACCES DIRECT. Avec la ver¬ 
sion cassette, il vous faut d'abord passer (ou bobiner) les quatre pré¬ 
cédents ! C'est l'ACCES SEQUENTIEL. 

Revenons à notre disquette. Sur la face A, il y a, supposons, 28 pro¬ 
grammes ; vous voulez utiliser le programme "BIDULE". Facile ! Vous 
tapez au clavier RUN "BIDULE". Que se passe-t-il alors ? 

Le bras de lecture, supportant une tête magnétique, va d'abord aller 
lire la piste "catalogue"; c'est l'équivalent de l'étiquette centrale d'un 
33 tours ; il y trouve le nom du programme avec son emplacement sur 
la face, par exemple "départ sur la piste n° 17, secteur n° 4". Le bras 
se place alors sur cette piste, et lorsque le secteur n° 4 passe devant 
la tête, il commence à charger le programme. Et à quelle allure !!! Un 
programme de 19 blocks ( = 38 kilo-octets) se charge en neuf secon¬ 
des et huit dixièmes !... à faire rêver. 

Pourquoi est-ce beaucoup plus rapide que sur magnétophone ? Parce 
que ce dernier a été conçu au départ pour la musique, c'est-à-dire pour 
reproduire fidèlement des variations d'amplitude (de volume). Pas un 
lecteur de disquettes ; il ne connaît que le binaire, l'amplitude est 1 ou 
0, c'est tout. On peut alors pousser la fréquence beaucoup plus haut. 
Pour fixer les idées, disons que la disquette 3 pouces pour AMSTRAD 
comporte 40 pistes concentriques, numérotées de 0 à 39 ; chacune 
étant divisée en neuf secteurs de 512 octets chacun. Faisons le calcul : 

512x9x40=184 320 octets (180 kilo-octets). 

Et comme les deux faces sont utilisables, cela nous fait 360 k-octets 
par disquette. Confortable, non ? Une disquette vierge vaut actuelle¬ 
ment entre 58 et 75 francs selon les revendeurs. Plus chère que la cas¬ 
sette ? Non, car une disquette peut stocker beaucoup plus qu'une cas¬ 
sette. Disons que, globalement, c'est légèrement en faveur de la dis¬ 
quette face à la C60 à 12 francs (que l'on ne remplit jamais... ). 


C'EST QUOI, LE FORMATAGE ? 

Vous venez d'acheter une disquette vierge ; elle l'est vraiment ! Car 
les pistes et les secteurs n'y sont pas. Donc, premier soin, il faut la 
"formater" : le "DRIVE" va tracer ses pistes de guidage de tête et ses 
repères de secteurs (magnétiquement bien sûr). Cette opération repré¬ 
sente environ une minute par face. Ce traitement est définitif. La dis¬ 
quette est alors prête à recevoir vos enregistrements. 
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LA DISQUETTE, EST-ELLE FRAGILE ? 


Beaucoup moins qu'une cassette ! D'abord, la disquette trois pouces 
est à l'abri des poussières et des traces de doigts, car la fente de lec¬ 
ture comporte un volet qui se referme lorsque l'on sort la disquette du 
DRIVE. 

D'autre part, il n'y a aucune mécanique, donc plus de risque de coin¬ 
cements et de bourrages destructeurs comme avec les cassettes. 
NOTE : Les disquettes 5 pouces 1 /4 sont bien plus économiques (—15 
francs), mais sont un peu plus délicates à manipuler, et la mécanique 
de leurs DRIVES est plus chère ; d'où cette nouvelle orientation vers 
le trois pouces et demi et le trois pouces, notre standard, hélas, tout 
neuf encore. 


ET LE REPERTOIRE PAR FACE ? 


4 


I 

f 
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Tapez CAT et Enter : le DRIVE lit le catalogue (on dit aussi DIRECTORY) i 

et l'affiche à l'écran. Nous avons le nom de chaque programme ou | 

fichier, son type (Basic, binaire, etc.) et sa taille en kilo-octets. Le tout j 

classé par ordre alphabétique. En bas de liste apparaît le nombre de J 

kilo-octets encore disponibles. 4 

Vous pouvez alors la recopier au crayon sur l'étiquette carton fournie 
avec l'emballage rigide transparent de la disquette. 


A PART LA VITESSE, C'EST TOUT ? 

Oh que non ! La vitesse d'enregistrement et de lecture, c'est certes 
le plus spectaculaire, mais il faut adjoindre trois autres aspects : 

— le côté exploitation qui devient beaucoup plus souple, plus ration¬ 
nel, plus sûr. En un mot, plus pratique (indépendamment de la vitesse) ; 

— les débouchés de "l'accès direct", c'est-à-dire certains programmes 
utilitaires qui sont irréalisables en "accès séquentiel" (cassette) ; 

— un apprentissage pratique à la micro-informatique professionnelle. 

En effet, l'AMSTRAD a choisi le "DOS" (prononcez dosse= "DISC 
OPERATING SYSTEM"), dit "CPM", largement utilisé, et dont s'est | 
copieusement inspiré IBM en créant son "MS/DOS" pour faire son "IBM i 
PC". Une future formation sur IBM PC serait alors très rapide en venant J 

de l'AMSTRAD : presque les mêmes Basic, et deux DOS ayant les 
mêmes "esprits" et souvent les mêmes syntaxes... Par contre, aucun 
rapport avec l'antique DOS des APPLE II. Qui c'est qui a dit "tant 
mieux" ? 

Revenons plus en détail sur certains de ces points. 
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QU'EST-CE QUE LE DOS ? 


C'est le "système d'exploitation", une sorte de langage, disons le 
"Basic du Drive". Ici, nous avons deux DOS, le CPM tout puissant et 
normalisé, et "l'AMSDOS". En effet, le fabricant a pris conscience que 
ce lecteur de disquettes s'adaptait à un micro-ordinateur conçu à l'ori¬ 
gine pour magnétophone, et cet "AMSDOS" est un langage de dialo¬ 
gue entre le Basic résident et le CPM. Grâce à lui, nous disposons de 
fonctions nouvelles, telle la copie d'une cassette sur disquette, ou l'in¬ 
verse (logiciels non protégés ou déplombés). Toutes les commandes 
Basic concernant le magnétophone telles que LOAD, SAVE, OPENIN, 
CAT, etc. (à l'exception de SPEED WRITE) s'appliquent directement 
au DRIVE. 

Les différents sous-programmes CPM présents sur la disquette système 
(la précieuse) nous permettent une foule de charcutages de fichiers : 
copie de fichiers, copie de toute la face de disquette, changer les noms 
de programmes, effacer tel nom ou telle catégorie de fichiers, etc. 
Dès que le DRIVE est branché au CPC 464, ce dernier oublie le magné¬ 
tophone et ne s'adresse qu'à la disquette. Pour revenir au magnéto¬ 
phone, il suffit d'entrer ITAPE, et plus tard IDISC pour revenir au DRIVE ; 
ce sont là des commandes AMSDOS qui s'ajoutent donc aux comman¬ 
des Basic existantes. 


L'ACCES DIRECT 

Pour vous démontrer les avantages, nous prendrons l'exemple des "ges¬ 
tionnaires de fichiers" : 

Si le programme est proposé en cassette, il faut tout le charger en RAM, 
et il ne reste à peine que 20 kilo-octets pour notre fichier, donc 200 
à 300 fiches maximum. Si ce logiciel était plus sophistiqué (nombreu¬ 
ses options), on aurait encore moins de place pour nos fiches ! 

En revanche, une bon logiciel sur disquette peut représenter un total 
de 70 k-octets et nous laisser 35 k-octets disponibles ! Comment cela ? 
C'est très simple : 

Le logiciel est décomposé en une douzaine de sous-programmes sur 
la même face. Au départ, on ne charge que le menu, disons 2000 
octets. Vous choisissez l'option saisie, il charge le sous-programme SAI¬ 
SIE qui écrase MENU et vous remplissez votre fichier qui reste en RAM. 
Option tri : charge le TRI qui vient écraser SAISIE, et ainsi de suite. 
Vue l'astuce ? 

Mieux, en option "Recherche sous plusieurs critères", on peut deman¬ 
der d'explorer des fichiers énormes enregistrés sur disquette, fiche par 
fiche, en ne conservant en RAM que celles qui répondent aux critères 
demandés. 

NOTE : Ces progiciels (logiciels professionnels) valent plus de 140 
francs... Beaucoup plus... 
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OUI MAIS, ET LES INCONVENIENTS ? 


Bien sûr il y en a, mineurs, mais ils existent. 

— On perd 1284 octets de la mémoire disponible. Ainsi, lorsque l'on 
fait PRINT FRE(""), on obtient 42 249 octets disponibles au lieu de 
43 533. 

— Les noms de fichiers (ou de programmes) ne doivent pas excéder 
huit caractères, et sans espaces ni ponctuation. 

— Après RUN", LOAD", SAVE", OPENIN" et OPENÔUT", on est 
obligé de spécifier le nom du fichier ; et sans se tromper dans son ortho¬ 
graphe ! C'est normal, puisque le DRIVE doit aller l'identifier dans le 
"catalogue" de la face de disquette en service. 

— De ce fait, il faudra modifier la fin de certains programmes Basic qui 
enchaînent sur un autre. Exemple, le classique : 

RUN"! 

qui charge le programme qui suit sur la cassette en évitant l'inscription 

"Loading MACHIN Block 1" 

Donc, ici à remplacer par RUN "MACHIN", voire changer le nom du 
programme s'il est trop long ou comporte des espaces. 

A noter au passage que vous n'avez plus à faire plusieurs sauvegardes 
d'un programme en cours d'écriture. Vous sauvez, par exemple, votre 
programme TRUC inachevé. Au catalogue, vous aurez en fait : 

TRUC.BAS 2K 

Le .BAS indique que c'est du Basic. Plus tard, nouvelle sauvegarde de 
travail par le même SAVE"TRUC" : 

Au catalogue, on aura : 


TRUC.BAK 2K 
TRUC.BAS 4K 

Le .BAK, c'est la version précédente qui n'a pas été écrasée.. Seule son 
"extension de nom" (ou "type") a été modifiée. 

Lorsque vous ferez LOAD"TRUC" ou RUN"TRUC", c'est TRUC.BAS 
qui sera exécuté. 


PEUT-ON ENREGISTRER DES LOGICIELS DE JEUX ? 

Depuis le temps que vous vouliez poser cette question... 
Directement, non. Il faut des logiciels de déplombage pour charger en 
RAM et transférer sur disquettes (durs à trouver). Tous les logiciels de 
jeux, ou presque, sont une série de programmes en Bâsic et en binaire 



(langage machine). Or, ces derniers posent parfois des problèmes d'em¬ 
placements mémoire. 

C'est un travail assez long mais payant, car avoir ses cassettes préfé¬ 
rées sur une même disquette et disponibles chacune après moins de 
dix secondes, au lieu de cinq à dix minutes... 

Ce n'est pas toujours facile, voire impossible. Disons que le pourcen¬ 
tage d'échecs se situe vers 25 %. Chose curieuse, parmi les 75 % de 
transferts réussis, l'opération inverse, disquette vers cassette, heureu¬ 
sement sans intérêt, se solde très souvent par un échec. Bien fait pour 
les pirates ! 


CPC 464 OU 664 7 

L'avènement du 664 a conduit à une baisse de prix du 464 et du DDI 
chez de nombreux détaillants, ce qui fait un prix d'ensemble à peine 
supérieur à 6500 F ; et là, on est complet. A partir du 664, il faudra 
accoller un bon magnétophone, plus encombrant que le DDL Le prix 
global est alors sensiblement le même... 

SI, par la suite, on s'offre un second DRIVE, on le pose SUR le DDI 
(pas plus encombrant) ou A COTE du 664 (plus d'encombrement). 

Il n'est pas du tout évident de trancher en faveur du 464 ou du 664 ; 
c'est alors une affaire de cas personnels bien précis. 


EN CONCLUSION 

Une phrase classique résume tout : c'est mieux, mais c'est plus cher... 
C'est très pratique, très agréable, mais pas indispensable. Car, mis à 
part certains logiciels professionnels, paraît-il en cours d'édition, le 
DRIVE n'apporte pas de "puissance" supplémentaire au système ; c'est 
comme comparer une chignole à main et une perceuse électrique : elles 
font exactement le même travail, mais avec des temps très différents 
(que le constructeur nous pardonne cette Image I). 

Comme il s'agit d'un investissement (éventuel) Important, il était néces¬ 
saire de savoir ce qu'il apporterait ou non. 
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FONCTION CIRCLE 


3 


Eddy DUTERTRE 


L ^AMSTRAD a, on le sait, de bonnes capacités graphiques, mais 
la fonction CIRCLE manque à l'appel. Pour pallier ce défaut, 
nous vous proposons ci-dessous un petit programme en langage 
machine qui vous permettra d'obtenir cette fonction directement par 
son nom à partir du Basic. Pourquoi en langage machine plutôt qu'en 
Basic ? Tout simplement pour avoir une grande rapidité d'exécution. 


FONCTIONNEMENT DU PROGRAMME 

Pour éviter d'utiliser les routines SIN et COS de la ROM du CPC, nous 
avons opté pour l'implantation en mémoire d'une table de Sinus et de 
Cosinus d'angles compris entre 0 et 2 tt (360°). Bien sûr, il n'était pas 
question de travailler alors avec des valeurs à virgule flottante, aussi, 
afin d'obtenir des nombres entiers, chaque valeur des tables a été mul¬ 
tipliée par 127 (7 Fh) et séparée de sa partie décimale. On obtient ainsi 
deux tables dont les données, comprises entre 0 et 127, correspon¬ 
dent en réalité à 1 - cos et 1 -sin, ceci afin de s'affranchir des valeurs 
négatives. Tout cela reviendra en fait à ne prendre en considération que 
deux chiffres après la virgule dans la table de sin et de cos. La suite 
devient alors très simple et se résume à de simples multiplications et 
divisions : 

Connaissant les coordonnées X et Y du centre du cercle à dessiner ainsi 
que son rayon, on peut écrire, en partant du point A et en faisant varier 
l'angle de 0 à 2 tt, que les coordonnées de chaque point du périmètre 
du cercle ont pour valeur : 


XD = X-hR-R{ 1 -cos a) = 
X -I- R cos a 

YD = Y-R-i-R( 1 -sin a) = 
Y - R sin a 
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XR = X-f-R 
YR=Y-R 


et 

1 - cos o: 

1 -sin ûf 

contenus dans les tables. 

XD = XR-R{1 -cos a) 

YD = YR + R{1 -sin a) 


^ I CIRCLE, X, Y, R, C» 

\ 

shift coordonnées rayon couleur 
^ du centre 


1 0 à 15 en mode 0 
O à 3 en mode 1 
0 à 1 en mode 2 
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UTILISATION DU PROGRAMME 



Après avoir tapé soigneusement le programme et surtout les lignes de 
DATA, il suffit de faire RUN pour l'implanter en mémoire. Si tout se 
passe bien (aucune erreur), un cercle devra se dessiner au bout de quel¬ 
ques secondes. 

La fonction CIRCLE sera alors disponible en faisant : 

CIRCLE, X, Y, R, C 
shift 

coordonnées 
du centre 

rayon 

couleur 

O à 15 en mode 0 
0 à 3 en mode 1 
0 à 1 en mode 2 

Notez qu'il est alors possible de sauvegarder uniquement la routine en 
langage machine en faisant : 

SAVE "CIRCLE",B,&A000,&1D4 

Pour la recharger et la valider avant utilisation, il faudra faire : 

MEMORY &9FFF 
LOAD "CIRCLE" 

CALL &A010 

Dès lors, son utilisation sera possible en Basic par le mot CIRCLE pré¬ 
cédé, ne l'oubliez pas, de " " (shift(^). 


LE PROGRAMME 


Dans le souci de satisfaire les lecteurs qui ne disposent pas de matériel 
de reproduction, nous sommes en mesure de vous procurer les mylars 
de ces circuits imprimés qui sont disponibles à la rédaction contre un 
chèque de 70 francs. Les abonnés de CPC pourront les obtenir pour 
50 francs en joignant à leur commande une étiquette d'abonné. 
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10 DATA C8,00,CB,00,64,00,02,2C,01,64 
20 DATA 00,F9,00,64,00,00,Oi;i9,AO,21 
30 DATA 25,A0,C3,D1,BC,1E,A0,C3,29,A0 
40 DATA 43,49,52,43,4C,C5,00,FC,A6,19 
50 DATA AO,FE,04,CO,DD,66,07,DD,6E,06 
60 DATA 22,00,AO,DD,66,05,DD,6E,04,22 
70 DATA 02,AO,DD,66,03,DD,6E,02,22.04 
80 DATA AO,DD,66,01,DD,6E,00,22,06,AO 
90 DATA 3A,06,A0,CD,DE,BB,2A,00,A0,ED 
100 DATA 5B,04,A0,19,22,07,A0,A7,2A,02 
110 DATA AO,ED,5B,04,AO,ED,52,22,09,AO 
120 DATA ED,5B,07,A0,2A,02,A0,CD,EA,BB 
130 DATA DD,21,09,Al,FD,21,6F,Al,06,66 
140 DATA C5,ED,5B,04,AO,DD,7E,00,0E,00 
150 DATA CD,DO,A0,16,00,lE,7F,7C,4D,CD 
160 DATA El,AO,50,59,2A,07,AO,A7,ED,52 
170 DATA 22,0B,A0,ED,5B,04,A0,FD,7E,00 
IBO DATA OE,00,CD,DO,AO,16,00,1E,7F,7C 
190 DATA 4D,CD,£l,AO,5O,59,2A,09,AO,19 
200 DATA 22,0D,A0,ED,5B,0B,A0,CD,F6,BB 
210 DATA DD,23,FD,23,C1,10,B3,C9,06,10 
220 DATA 21,00,00,CB,39,1F,30,01,19,EB 
230 DATA 29,EB,10,F5,C9,21,00,00,06,10 
240 DATA CB,11,17,ED,6A,ED,52,3F,30,11 
250 DATA 10,F4,C3,03,A1,CB,11,17,ED,6A 
260 DATA A7,ED,5A,38,F1,28,EC,10,F2,CB 
270 DATA 11, 17,19,47,C9, 00,00, 01,02,04 
280 DATA 06,09,0C,10,14,18,1D,22,2B,2E 
290 DATA 34,38,42,49,50,58,5F,67,6F,77 
300 DATA 7F,87,8F,97,9F,A6,AE,B5,BC.C3 
310 DATA CA,D0,D6,0C,E1,E6,EA,EE,F2,F5 
320 DATA F8,FA,FC,FD,FE,FE,FE,FD.FC,FA 
330 DATA FB,F5,F2,EE,EA,E6,E1,DC,D6,D0 
340 DATA CA,C3,BC,B5,AE,A6,9F,97,BF,87 
350 DATA 7F, 77, 6F,67,5F,58,50,49,42,38 
360 DATA 34,2E,28,22,ID,18,14,10,0C,09 
370 DATA 06,04,02,01, 00,00,00, 7F,77,6F 
380 DATA 67,5F,58,50,49,42,3B,34,2E,28 
390 DATA 22, ID,18,14,10,OC,09,06,04,02 
400 DATA 01,00,'00,00,01,02,04;06,09,0c 
410 DATA 10,14,18,10,22,28,2E,34,38,42 
420 DATA 49,50,58,5F,67,6F,77,7F,87, 8F 


•«:>e T'ATA 97,9F,A6,AE,B5.BC,C3,CA.DÛ,06 
MO DATA DC.E1.E6,EA,EE.F2,F5,FB,FA,FC 
450 DATA FD,FE,F£,FE,FD.FC,FA,F8,F5.F2 
460 DATA £E,EA.E6.E1,DC,D6,D0,CA,C3,BC 
470 DATA B5,AE,A6,9F,97,8F.87,7F,77,K/. 

J 30 L=!yAOOO 

•i?0 READ AfîIF AI=“n‘'TH£N 510 
500 A=OAHn"-A$)!POKE L.A:L=L+1:60T0 4<50 
510 CALL îtAOlO " Lnolantation ou RSX 
520 CLS::CIPCL£.319,200,150.1 
530 DELETE -530 


TRUCS ET ASTUCES 


Raymond STOFFEL - 68 RIXHEIM 

Ayant acheté un AMSTRAD CPC 664, j'ai été très intéressé par votre 
programme Mirage paru dans le numéro 1 de votre revue. Malheureu¬ 
sement, la compatibilité du 664 avec le 464 n'étant que ce qu'elle est, 
le programme en question ne fonctionnait pas correctement. 

En fait, les adresses des pointeurs Basic ne sont pas identiques sur les 
deux ordinateurs. 

Voici les correspondances qui permettront à vos lecteurs de modifier 
les deux programmes en question : 

664 464 

AE66-AE67 AE83-AE84 

AE68-AE69 AE85-AE86 

AE6A-AE6B AE87-AE88 

Par ailleurs, la modification des pointeurs Basic étant également res¬ 
ponsable du plantage du programme de jeu SORCERY, il convient de 
procéder ainsi : 

POKE &AE81,&6F: 

POKE &AE82,&1 

et de lancer le jeu normalement en appuyant sur les touches control 
et enter. 
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INITIATION A 
LASSEMBLEUR 



Denis BOURQUIN 


A partir de ce numéro, nous allons commencer une série d'articles 
d'initiation à l'assembleur. Abondamment traité certes, nous 
avons cependant pensé qu'il était nécessaire que ce sujet figure dans 
cet ouvrage. Le microprocesseur du CPC étant un Z80 de Zilog, nous 
traiterons donc plus particulièrement de l'assembleur Z80. 

Dans cette première partie, nous ne ferons pas d'assembleur, mais nous 
essayerons d'introduire un certain nombre de notions indispensables 
à la bonne compréhension de la suite. La programmation en assem¬ 
bleur nécessite de posséder quelques connaissances (matériel et logi¬ 
ciel) que nous allons passer en revue. 

L'AMSTRAD est construit autour du microprocesseur Z80 de ZILOG, 
ce microprocesseur est dit "8 bits" car il possède un bus de données 
8 bits. Nous allons donner quelques explications pour les débutants. 
Le microprocesseur dialogue avec les circuits qui l'entourent au moyen 
de trois bus (un bus étant une voie de dialogue à plusieurs liaisons), 
un bus de données de 8 bits (8 liaisons), un bus d'adresse sur 16 bits 
(16 liaisons) et un bus de commande. Le rôle du bus d'adresse est de 
fournir l'adresse du périphérique avec lequel le microprocesseur veut 
dialoguer. Cette commande correspond à la combinaison des 16 liai¬ 
sons d'adresse. Le bus de commande permet au microprocesseur d'in¬ 
diquer le sens du dialogue (lecture ou écriture), le type de périphérique 
adressé (mémoire, entrée-sortie), d'indiquer son état aux périphériques 
ou de recevoir des acquittements des périphériques. 

Le plus important des circuits périphériques du microprocesseur sera 
la mémoire. Sans elle, il ne peut rien faire, c'est dans cette mémoire 
que seront stockés les programmes et les données. Elles est architec- 
turée en "cases" de 8 bits appelées "octets". Le Z80 ayant un bus 
d'adresse de 16 bits, ils ne pourra donc adresser instantanément qu'une 
case mémoire choisie parmi 2116, soit 65536 cases. 
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Dans le Z80, comme dans un certain nombre d'autres microproces¬ 
seurs, nous distinguons, en plus de la mémoire, un autre espace adres¬ 
sable : celui des poids faibles du bus d'adresse ; il est donc de 2Î8, 
soit 256 cases, ces cases sont plus couramment appelées ports. Par 
exemple, la sortie imprimante du CPC est dans cet espace, de même 
que le générateur de sons, le contrôleur d'écran, le clavier, le contrô¬ 
leur de disque. Mais vous aurez remarqué, dans votre manuel du CPC, 
que les adresses de l'espace entrée-sortie ne sont pas données sur 8 
bits mais sur 16 (utilisation en Basic de l'instruction INP pour lire le 
contenu d'un port et de l'instruction OUT pour écrire dans un port). 
En effet, le décodage des adresses des entrées-sorties du CPC utilise 
une des particularités du Z80 : en mode d'adressage indirect des 
entrées-sorties par le registre C, le microprocesseur met sur les bits de 
poids forts du bus adresse le contenu du registre B, mais il est peut- 
être prématuré de parler de cette particularité ; aussi, nous y revien¬ 
drons quand nous analyserons les entrées-sorties en assembleur. 

La mémoire du CPC est de deux types : de la ROM qui est une mémoire 
accessible uniquement en lecture et qui contient un programme figé 
par le constructeur. C'est dans cette ROM que nous trouvons l'inter¬ 
préteur Basic du CPC. Elle est subdivisée en deux sections de 16 kilo- 
octets chacune (1 kilo-octet = 1024 octets), la première est implantée 
à l'adresse 0 et va jusqu'à l'adresse 3FFFH (les adresses sont données 
ici en hexadécimal à 16t0* 1 5-H 1 6t 1 * 1 5-f 1 6t 2* 1 5-f-1 6 

3*3=1 6383). La seconde va de l'adresse COOOH à l'adresse FFFFH. 
Le deuxième type de mémoire du CPC est la RAM. Cette mémoire est 
accessible en écriture et en lecture, et est disponible pour l'utilisateur 
qui y logera ses programmes et les données de son application. Elle 
s'adresse sur 16 bits et fait 64 kilo-octets (65536 cases). Si nous fai¬ 
sons le compte de la mémoire du CPC, nous trouvons 96 kilo-octets ; 
il y a un truc ! Effectivement, le microprocesseur ne peut adresser avec 
ses 16 bits d'adresse que 65536 octets, mais si nous utilisons un arti¬ 
fice distinguant différentes zones de 65536 octets, nous augmentons 
l'espace mémoire adressable. Cet artifice peut consister, par exemple, 
en écriture dans un port d'entrée-sortie d'une valeur correspondant à 
une des zones mémoires désirées, nous avons alors paginé ou segmenté 
la mémoire. Il suffit donc de préciser, avant d'y accéder, quel est le 
type de mémoire désiré. Le CPC procède par l'écriture dans un port, 
mais nous reparlerons de cette particularité plus tard. 

Lorsque vous travaillez en Basic, vous n'êtes pas directement maître 
de la mémoire, l'interpréteur la gère à votre place. Vous n'y accédez 
directement que par les instructions POKE et PEEK. Rappelons que l'ins¬ 
truction PEEK (AD) retourne le contenu de la case mémoire d'adresse 
AD, et POKE AD,VAL écrit la valeur VAL dans la case d'adresse AD. 
En assembleur, c'est vous qui gérerez votre mémoire. 

Nous allons arrêter là les considérations sur la mémoire, et nous allons 
nous intéresser d'un peu plus près au microprocesseur. Regardons l'ar¬ 
chitecture générale d'un micro. Cette architecture simplifiée est don¬ 
née par la figure 1. 
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Figure 1 


Nous trouvons, comme constituants principaux : 

I 

— Une unité arithmétique et logique ALU qui effectue les différentes 
opérations arithmétiques et logiques entre deux opérandes présentés 
sur ses entrées. Le plus souvent, l'un des opérandes est l'accumula¬ 
teur ; cet accumulateur est un registre interne au microprocesseur (c'est 
une mémoire interne au microprocesseur). Le registre A, dans le Z80, 
a cette vocation. A cet accumulateur nous associerons le registre des 
drapeaux qui Indique la manière dont s'est effectuée une opération arith¬ 
métique ou logique. Nous analyserons ultérieurement le contenu de ce 
registre des drapeaux. 

— Des registres de données 8 bits. Ces registres sont utilisés comme 
mémoire temporaire des données dans les programmes. Il est toujours 
Intéressant qu'un microprocesseur en possède plusieurs car le registre 
offre comme avantage, par rapport à la mémoire, d'être d'un accès plus 
rapide puisqu'interne au microprocesseur. Le Z80 possède deux ban¬ 
ques de 6 registres. Ces registres sont repérés par une lettre et sont 
B, C, D, E , H et L pour la première banque, et B', C', D', E', H' et L' 
pour la deuxième banque. Une seule de ces banques et accessible à 
un instant donné, le passage d'une banque à l'autre s'effectuant par 
une seule Instruction. Nous remarquons que le registre A correspond 
à la première banque et que son homologue, dans la deuxième ban¬ 
que, est le registre A'. Notons tout de suite que ces registres de 8 bits 
peuvent être regroupés deux par deux pour être utilisés en registres 
16 bits : BC, DE, HL, ils peuvent servir de registres d'adresse. 
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— Des registres d'adresse 16 bits. Ce sont les registres IX et lY qui 
servent d'index pour l'adressage de zones mémoires. Nous reparlerons 
des différents types d'adressages. Le registre SP est le pointeur de pile. 
La pile, mais qu'est-ce que c'est ? Lorsque vous avez programmé en 
Basic, vous avez probablement utilisé des sous-programmees que vous 
avez appelés par GOSUB. A la fin du sous-programme vous aviez l'ins¬ 
truction RETURN. Oui, mais return où ? L'adresse de retour, l'interpré¬ 
teur se l'était rangée dans un coin de la mémoire : la pile. La pile est 
une zone mémoire que vous réservez au microprocesseur, pour lui per¬ 
mettre de sauvegarder les adresses de retour au programme principal, 
lors des déroutements vers des sous-programmes ou vers des program¬ 
mes d'interruption. Cette pile vous servira aussi, dans les programmes, 
à sauvegarder le contenu des registres. Sa structure est du type LIFO 
(last-in, first-out : dernier entré, premier sorti). La sauvegarde dans cette 
pile consiste finalement en des opérations d'empilage et de dépilage. 
Il nous reste encore un registre de 16 bits à voir ; le compteur ordi¬ 
nal ; PC. Ce registre n'est pas manipulé directement par le program¬ 
meur, mais c'est lui qui pointe la mémoire pour aller chercher en 
séquence les différents codes opération et opérandes. 

Le Z80 possède deux autres registres 8 bits : les registres I et R. Le 
registre I pointe la table des vecteurs d'interruption. Nous en reparle¬ 
rons quand nous verrons les modes d'interruption du Z80. Le registre 
R fournit les adresses de raffraîchissement pour les mémoires 
dynamiques. 


ROLE DE L'ASSEMBLEUR 



Après les quelques considérations matérielles exposées plus haut, nous 
allons parler de l'assembleur. 

La première question que tout débutant se pose est : qu'est-ce qu'un 
assembleur ? 

Un assembleur est un programme chargé de traduire un programme 
source en octets directement interprétable par le microprocesseur. 
Le programme source est une suite d'instructions écrites avec leurs 
mnémoniques et n'est donc que du texte (suite de caractères ASCII). 

. L'utilisation d'un assembleur présente l'intérêt de ne pas avoir à recher¬ 
cher la codification des opérations dans le langage binaire de la machine 
car, rappelons-le, le système de travail d'un microprocesseur est le 
système binaire. Les assembleurs offrent, en plus, d'autres services 
qui sont des aides à la programmation et à la relecture des program¬ 
mes, comme l'utilisation des symboles pour repérer une case mémoire 
ou une zone mémoire, ou pour repérer un point de branchement dans 
un programme. 

Dans un programme source, nous allons trouver des directives d'as¬ 
semblage, des étiquettes, des réservations de zone mémoire, des lignes 
d'instruction. 
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Les directives sont des pseudo-instructions qui fournissent des indica¬ 
tions au programme d'assemblage, mais ne provoquent aucune géné¬ 
ration de code. 

Nous allons regarder le format d'une ligne assembleur et expliquer ce 
que l'on peut y trouver. 

Le format d'une ligne d'un programme source se décompose en qua¬ 
tre champs : les champs étiquettes, code opération, opérandes et 
commentaires. 

Le cadre de la figure 1 donne l'alignement de ces champs et le carac¬ 
tère servant de séparateur. Analysons ces champs l'un après l'autre. 
Un conseil avant tout : pour une bonne lisibilité de vos programmes, 
prenez l'habitude de cadrer vos lignes d'instructions de telle sorte que 
chaque champ occupe toujours le même nombre de caractères. 


MNEMONIQUE DU 


OPERANDES 

CODE OPERATION 


OP1 


0P2 


ETIQUETTE 


COMMENTAIRES 


Figure 1 


LE CHAMP ETIQUETTE 

Il n'est pas toujours présent, il contient un symbole qui représentera 
l'adresse mémoire où sera rangé le premier octet de code de la ligne 
d'instruction. Les étiquettes sont utilisées pour représenter des points 
de branchement ou pour représenter le début d'un sous-programme. 
Jusqu'à présent, nous n'avons pas parlé des symboles. Un symbole 
est une suite de caractères commençant toujours par une lettre, le nom¬ 
bre de caractères significatifs pris en compte dépend de l'assembleur. 
Voici, par exemple, une suite d'étiquettes valides : CONIN, CHL1, 
RET45, IMPRIMANTE. 

Et maintenant, voici une suite d'étiquettes incorrectes : 1BCL, HL, LD, 
END. 

La première étiquette du deuxième exemple commence par un chiffre 
et non par une lettre ; la deuxième étiquette peut être confondue avec 
les registres du Z80, la troisième est une instruction Z80 et la quatrième 
une pseudo-instruction de l'assembleur. Le séparateur entre le champ 
étiquette et le champ opération peut être ou un espace suivant le 
type d'assembleur utilisé. 


LE CHAMP CODE OPERATION 

Il contient le mnémonique du code opération, par exemple ADD. Le mné¬ 
monique du code opération est une abréviation du mot anglais dési¬ 
gnant cette opération, par exemple, ADD est le mnémonique de l'addi¬ 
tion, SUB le mnémonique de la soustraction, LD le mnémonique de 
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LOAD pour le chargement, mais nous les verrons lorsque nous analy¬ 
serons les différentes instructions du Z80. 

Dans le champ code opération, nous pourrons trouver des directives 
d'assemblages ; nous allons analyser les principales à la fin de ce 
chapitre. 

LE CHAMP OPERANDE 

• 

Il contient 1, 2 ou pas d'opérande suivant le type d'opération réalisée 
ou suivant que le code opération sous-entend ou non la présence d'un 
ou deux opérandes. Lorsque nous aurons deux opérandes, ceux-ci 
seront séparés par une virgule. 

Comme opérande, nous allons trouver : 

Des opérandes registres 

Rappelons qu'un registre est représenté par la lettre le désignant ; ce 
sont tous les registres 8 ou 16 bits du Z80 : A, B, C, D, E, H, L, BC, 
DE, HL, IX, lY, SP, I, R. 

Des opérandes mémoires 

Cet opérande mémoire pourra être un symbole que nous aurons déclaré 
par une directive assembleur, directive assembleur qui associera à ce 
symbole une case mémoire. Un tel opérande sous forme de symbole 
sera traduit par l'assembleur en une adresse absolue correspondant à 
la case mémoire associée. Nous trouverons donc aussi en opérande 
mémoire une référence directe à une adresse, par exemple, 16385, sera 
la case mémoire d'adresse 16385. 

Lorsque nous adresserons une case mémoire en assembleur, la réfé¬ 
rence de cette case se fera toujours par l'intermédiaire de son symbole 
ou de son adresse entre parenthèses. Prenons tout de suite un exemple : 

LD (CASE),A 

» 

L'instruction précédente est une instruction de chargement LOAD, elle 
prend le contenu du registre A et le met dans la case mémoire appelée 
ici CASE ; si cette case avait été réservée à l'adresse 16385, nous 
aurions pu écrire aussi : 


LD (16385),A 

Nous trouverons aussi en Z80 un autre type d'opérande mémoire : il 
correspond à un adressage indirect par registre. Nous n'avons plus, dans 
ce cas, directement l'adresse de la case mémoire, mais cette adresse 
se trouve dans un registre 16 bits. Revenons à l'exemple précédent. 
Pour stocker le contenu du registre A dans la case d'adresse 16385, 
nous avions déjà les deux méthodes suivantes : 
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ORG 16385 
CASE DB 
LD (CASE),A 


LD (16385),A 

Nous pourrions aussi faire : 

LD HL,16385 
LD (HL),A 

Mais nous reparlerons de tous ces modes d'adressage dans l'analyse 
des instructions du Z80. 

Des opérandes immédiats 

Dans ce cas, l'opérande est directement une valeur que nous stocke¬ 
rons dans un registre ou une case mémoire. Notons que, dans ce cas, 
pour l'adressage en mémoire, seul l'adressage indirect par la paire de 
registres HL est valide. 

Cette valeur immédiate peut être une valeur 8 bits si nous la chargeons 
dans un registre 8 bits, ou une valeur sur 16 bits si nous la stockons 
dans un registre de 16 bits. 

Exemple : LD A, 16 charge la valeur 16 dans le registre A. 

Dans les exemples donnés jusqu'à présent, nous voyons apparaître une 
particularité de l'assembleur du Z80 qui veut que l'opérande destina¬ 
tion soit placé avant l'opérande source, ce sera toujours le cas, quelle 
que soit l'opération (voir figure 2). 


MNEMONIQUE 

OPERANDE 


OPERANDE 

OPERATION 

DESTINATION 


SOURCE 


Figure 2 


Champ opérande à un seul opérande 

Il existe certaines instructions pour lesquelles un des opérandes est 
sous-entendu, Ceci, par exemple, est le cas de certaines opérations 
arithmétiques ou logiques comme la soustraction sans retenue qui s'ef¬ 
fectuent toujours entre le registre A, qui a vocation d'accumulateur, 
et un autre opérande. 

Exemple : SUB B soustrait le contenu du registre B du contenu du regis¬ 
tre A ; le résultat est dans le registre A. Autre exemple : AND C qui 
est le ET logique entre le registre A et le registre C. 

Champ opérande vide 

Dans ce cas, il n'y a aucun opérande dans le champ opérande. Ceux-ci 
sont sous-entendus dans le mnémonique opération. 
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Exemple ; RRA, mais nous les verrons de même avec l'analyse des ins¬ 
tructions. 



Champ opérande avec codes conditions 

Nous avons là un autre cas d'opérande, la première partie du champ 
opérande contient une condition qui résultera d'une opération et la 
deuxième partie du champ sera une adresse absolue ou relative. Nous 
trouvons ce cas de champ d'opérande dans toutes les instructions de 
branchement. 

JP Z,DEBUT 
JR Z, DEBUT 

Le format de l'instruction est celui de la figure 3. 


Mnémonique 
du saut 
absolu relatif 

Condition à 
réaliser 

0 

adresse absolue 
ou relative 


Figure 3 


Champ opérande avec opérateur 

Le champ opérande peut contenir des opérandes plus complexes ; cette 
possibilité est offerte par les assembleurs comme une aide au program¬ 
meur. En effet, ceux-ci contiennent toujours un interpréteur d'opéra¬ 
tion plus ou moins rudimentaire. 

Nous trouverons au moins comme opérateur les 4 opérations de base 
{* / + -). 

Donnons tout de suite un exemple : nous pourrons écrire avec un assem¬ 
bleur : 


LD HL,80*4 +ECRAN 

L'exemple donné donnera à l'assemblage si auparavant nous avons ^ 
défini la directive : i 


ECRAN EQU OCOOOH 
l'équivalent de l'instruction : 

LD HL,0C14OH 

Autre exemple plus simple : nous pouvons écrire : 

LD A,16*4 
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ce qui est équivalent à : 


LD A,64 

Quel est l'intérêt de ce type d'écriture ? Le premier est de ne pas avoir 
à faire tous les calculs, et le deuxième de permettre une meilleure lisi¬ 
bilité des programmes. 

Pour l'utilisation des opérateurs, il est impératif de se reporter à la docu¬ 
mentation de l'assembleur utilisé, car ces derniers ne respectent pas 
toujours la hiérarchie des opérateurs ; par exemple l'assembleur ZEN 
évalue une expression strictement de gauche à droite et donc l'exem¬ 
ple précédent n'aurait pas donné le même résultat si on avait écrit : 

LD HL,ECRAN + 80»4 

Plus loin, nous essayerons de vous faire une comparaison entre les 
divers assembleurs en notre possession. 

Le champ commentaire 

Ce champ est toujours précédé d'un point-virgule. Nous y trouverons 
donc les commentaires du programmeur sur le fonctionnement de son 
programme ou pas de commentaire du tout. Encore une fois, nous vous 
donnerons un conseil : renseignez abondamment vos programmes, il 
vous sera plus facile de les reprendre quelques mois après. 


4 

Après avoir regardé le format d'une ligne assembleur, et avant de nous 
lancer dans les instructions du Z80, nous allons analyser quelques direc¬ 
tives assembleurs rencontrées dans pratiquement tous les assembleurs 
Z80. 

Les directives d'assemblage 

Les directives d'assemblage sont des pseudo-instructions ; elles ne pro¬ 
voquent pas de génération de code objet, mais elles sont là unique¬ 
ment pour permettre au programme d'assemblage de fonctionner nor¬ 
malement. Nous ne ferons pas le tour de toutes les directives, mais 
seulement des principales, nécessaires à l'écriture d'un programnie ; 
nous introduirons les autres au fur et à mesure de I analyse des ins¬ 
tructions Z80 avec les exemples. 

La directive ORG 

La syntaxe de cette directive est de la forme ORG 4000H. Elle se 
compose de la commande ORG et d'une adresse définie sur 16 bits. 
Son rôle est d'indiquer au programme d'assemblage que ce qu'il va 
assembler commence à l'adresse indiquée, dans l'exemple à l'adresse 
4000H (en hexadécimal). Comme ZEN est un des assembleurs les plus 









répandus sur AMSTRAD, nous parlerons d'une directive particulière 
dont il est doté : la directive LOAD. 

LOAD 

ZEN est un assembleur qui assemble uniquement en mémoire ; il sera 
donc nécessaire de lui indiquer dans quelle zone mémoire il devra loger 
le code qu'il génère. Ce sera le rôle de la directive LOAD ; en l'absence 
de cette directive, il ne génère qu'un listing d'assemblage. Exemple : 
sous ZEN pour écrire un programme qui commencera à l'adresse 8000H 
et que l'on voudra exécuter ensuite ou sauver sur cassette, il faudra 
écrire : 


ORG 8000H 
LOAD 8000H 

Cette directive LOAD n'existe pas sur les autres assembleurs qui génè¬ 
rent le code objet soit dans un fichier disque, soit en mémoire lorsqu'ils 
possèdent l'option d'assemblage "en mémoire". 

La directive EQU 

Le rôle de cette directive est d'affecter une valeur à un symbole, 
symbole qui sera une constante ; cette fonction est l'équivalent du 
CONST en Pascal. Chaque fois que l'assembleur rencontrera, par la 
suite, ce symbole, il le remplacera par sa valeur. 

Exemple : 

CAS EQU 5 
LD C,CAS 

est équivalent à LD C,5 et l'assembleur génère le code correspondant 
à LD C,5. 

Autre exemple : 

MOTCAS EQU 0F610H 
LD BC,MOTCAS 

L'assembleur génère le code équivalent à LD BC,0F610H. Nous avons 
associé à MOTCAS la valeur hexadécimale 0F610H, et tout au long 
de notre programme, ce symbole vaudra 0F610H. 

Normalement, dans les assembleurs, un symbole défini par la directive 
EQU ne peut pas être réaffecté ; nous ne pouvons trouver la directive 
"ETIQUETTE" EQU qu'une seule fols dans un programme. 

Dans les exemples, nous avons écrit les constantes soit en décimal, 
soit en hexadécimal ; nous allons ouvrir une parenthèse sur la manière 
d'entrer une constante en assembleur. 
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LES CONSTANTES 


Nous pouvons, dans une ligne instruction, écrire une valeur immédiate : 

— en notation décimale : en général, l'écriture est la suivante : 10, 15, 

— en notation hexadécimale : dans ce cas, on indique que la base est 
différente en mettant la lettre correspondant à la base de numérota¬ 
tion à la fin de la constante ; la lettre pour la notation hexadécimale 
est la lettre H. La notation hexadécimale est la base 16, et nous avons 
donc 16 chiffres qui sont 0 à 9 et de A à F. 

Les constantes octales 

Comme pour la représentation hexadécimale, la représentation octale 
sera indiquée par une lettre, cette lettre est la lettre 0 après la cons¬ 
tante. Exemple : 230. 

230 est équivalent à 19 en décimal et à 13H. Les chiffres dans cette 
représentation vont de 0 à 8. 

Les constantes ASCII 

Un caractère peut être représenté par un code international abondam¬ 
ment utilisé en informatique : le code ASCII. Par exemple, la lettre A 
est codée par le nombre 65 ou 41H en hexadécimal. Nous pourrons 
donc utiliser les lettres sous leur représentation ASCII en assembleur ; 
par exemple pour l'affichage d'un texte à l'écran, le code d'échange 
des caractères à afficher sera le code ASCII. 

Exemple : en assembleur nous pourrons écrire : 

LD A,'B' 


ce qui est équivalent à : 


LD A,66 

car le code ASCII de 'B' est la valeur 66. 

Exemples : 10H, OFFH, OCOOOH 

Comme dans ce système de numérotation nous utilisons des chiffres 
qui sont représentés par des lettres, et pour éviter toute confusion avec 
des symboles, lorsque le premier chiffre d'une constante hexadécimale 
est une des lettres A à F, il est impératif de mettre devant un 0, sinon 
une erreur sera générée à l'assemblage. 

Revenons à nos directives d'assemblage. 

Dans un programme, nous traitons des données, il va donc être néces¬ 
saire de leur réserver de la place en mémoire. Nous avons, pour cela, 
un certain nombre de directives, ce sont les directives "Define". 
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Directive DB ou DEFB (define byte) 

Le rôle de cette directive est de réserver un ou plusieurs octets en 
mémoire. 

Exemple : MESSAGE DB 'BONJOUR' Le message est dans le champ 
étiquette, DB dans le champ opération, 'BONJOUR'. 

Dans le champ opérande, cette ligne d'instructions réservera une zone 
mémoire ; dans la première case de cette zone, nous aurons la valeur 
65, dans la deuxième la valeur 79, etc. Chacune de ces valeurs étant 
le code ASCII de la lettre correspondante : 65 est le code ASCII de B 
et 79 le code ASCII de 0. Par la suite, nous ne parlerons plus de cases 
mémoire mais d'octets, car chacune de nos cases mémoire est un octet, 
comme nous l'avions expliqué précédemment. 

Lorsque, dans la suite du programme, nous ferons référence à MES¬ 
SAGE, ce sera à l'octet d'adresse correspondant à la case où se trouve 
la lettre B (valeur 65), c'est-à-dire si nous avons : 

ORG 7000H 

MESSAGE DB 'BONJOUR' 

la lettre B se trouve à l'adresse 70OOH, la lettre O à l'adresse 7001 H, 
etc. 

Autres exemples : 

VAL1 DB 10 
VAL2 DB 0F5H 
TAB DB 10,11,12,14 

Le troisième exemple a réservé 4 octets aux emplacements 10, 11, 
12 et 14. 

Directive DW, DEFW (define word) 

Par cette directive, nous ne réservons plus un octet, mais un groupe 
de deux octets appelé mot (mot de 16 bits). 

Exemple : MOT1 DW 0F542H 

Nous avons, par cette directive, réservé deux octets en mémoire dans 
lesquels nous aurons mis les valeurs 42H pour le premier octet et F5H 
pour le second. Nous voyons ici une autre particularité du Z80 qui, pour 
stocker des mots en mémoire, stocke d'abord l'octet de poids faible, 
puis l'octet de poids fort. 

Dans la suite du programme, si nous écrivons LD HL,(MOT1 ), nous met¬ 
trions dans la paire de registre HL la valeur F542H, le registre H à la 
suite de cette instruction contenant 0F5H et le registre L contenant 
42H. 

Nous pouvons trouver aussi : BRANCH DW TABLE avec TABLE qui est 
une étiquette de programme et dans ce cas, BRANCH est initialisé à 
la valeur de l'adresse correspondant à TABLE. 

Directive DS ou DEFS (define storage) 

La syntaxe de cette directive est la suivante : 
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BUFFER DS 128 


Dans cet exemple, nous avons réservé une zone mémoire de 128 octets 
que nous avons appelée BUFFER. 

Cette directive n'affecte pas une valeur à un octet, mais réserve un 
certain nombre d'octets ; nous trouvons derrière DS ou DEFS le nom¬ 
bre d'octets réservés. 

La syntaxe employée pour les différentes directives utilisait l'espace 
comme séparateur. Les utilisateurs de ZEN auront remarqué que leur 
assembleur n'utilisait pas la même syntaxe. 

Comme il a été dit plus haut, ZEN utilise les deux points comme sépa¬ 
rateur du champ étiquette et du champ Instruction ; nous aurons donc 
avec ZEN l'écriture suivante pour les directives DEFINE : 

MOTIiDW 0F542H 
MESSAGErDB 'BONJOUR 
BUFFERrDS 128 
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LE BUG DE L'OPENOUT 



Michel ARCHAMBAULT 


T oute ROM a ses petits bugs, et le Basic du CPC 464 n'échappe 
pas à cette triste règle. Or, ce bug peu gênant avec cassettes 
devient un lourd handicap si l'on se sert d'un lecteur de disquettes. 
Voici les faits : 

6100 INPUT "NOM du FICHIER", FICH$ 

6110 OPENOUT FICH$ 

6120 WRITE #9, etc. 

6200 CLOSEOUT 

S'il y a peu de variables en RAM, si le fichier FICH$ est assez petit 
(moins de 4000 octets environ), il n'y aura aucune anomalie, c'est-à- 
dire qu'en faisant CAT, nous aurons bien le nom du fichier FICH$. 

A présent, le fichier fait déjà 5 ko, sauvegarde CAT. Oh ! surprise I pas 
de FICH$ au catalogue (ou en-tête de fichier) mais un nom bizarre cons¬ 
titué par un fragment des données de FICH$ ! Autre inconvénient : le 
programme se bloque de nombreuses secondes avant et après l'enre¬ 
gistrement sur cassette ou disquette. Idem d'ailleurs au rechargement 
par OPENIN. 

Lorsque l'on utilise la magnétophone, on ne s'aperçoit guère de la dété¬ 
rioration du nom du fichier, car on a, par exemple : 

9100 OPENIN " " 

ou mieux encore OPENIN"!" qui supprime les messages à l'écran "LOA- 
DING MACHIN Block 1". 

Le programme charge donc le premier fichier qu'il rencontre sur la cas¬ 
sette en lecture. En revanche, une telle écriture ferait planter avec un 
"Bad Command" s'il doit lire sur une disquette ! Il faut alors que OPENIN 
soit suivi du vrai nom du fichier, FICH$ ; et si celui-ci a été "détérioré" 
lors dé son enregistrement, il y aura plantage. Motif : "nom de fichier 
inconnu"... Plutôt gênant ! 



Voici d'abord le remède (trouvé non sans peine... ) et ensuite 
l'explication. 


LE REMEDE 

Au début d'un programme Basic susceptible d'enregistrer ou de lire un 
long fichier, insérez les lignes suivantes : 

50 OPENOUT "BIDON" 

60 MEMORY HIMEM-1: 

CLOSEOUT 

Très important : 

— les définitions de variables (ex.: N = 15) ou de DIM (ex.; DIM 
AD$ (200,5) seront placées APRES ces deux lignes ; 

— en revanche, un SYMBOL AFTER doit être logé AVANT ces lignes. 
Un exemple très concret : notre programme LABELMATIC publié dans 
CPC n° 1, page 21 sera amélioré de la façon suivante : 

— efface la ligne 300 ( = GOSUB 51000) 

— 30 GOSUB 51000 

— écrire les lignes 50 et 60 

Le GOSUB 51000 exécute un petit sous-programme qui établit les 
caractères AZERTY accentués, et il commence par un SYMBOL 
AFTER... On a donc déplacé ce GOSUB de la ligne 300 à la ligne 30. 
Sans cette précaution, on aurait droit à un "Memory fuN" (mémoire 
pleine). 


EXPLICATION DU PHENOMENE 

Le programme Basic se loge dans le "bas" de la mémoire, tandis que 
les variables s'empilent en "haut", juste avant la zone RAM réservée 
à la mémoire d'écran. Cette limite supérieure de la mémoire a pour 
adresse HIMEM ( = HIGH MEMORY). On peut l'abaisser par la com¬ 
mande MEMORY. 

Or, voilà que le programme rencontre la commande OPENOUT, et voici 
la farce que cela provoque : 

Le HIMEM s'abaisse automatiquement de 4096 octets, soit 4 kilo- 
octets, l'emplacement pour loger deux "blocks". Donc, tout le paquet 
des variables qui se trouvaient juste en-dessous, voient leurs adresses 
abaissées de 4096, et si elles sont nombreuses, ce relogement peut 
prendre du temps... 

Si on avait demandé OPENOUT "AGENDA", le fichier serait enregis¬ 
tré sans problème sous ce nom fixe et programmé. En revanche, si c'est 
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OPENOUT FICH$, il doit aller chercher FICH$ dans le bloc qu'il a déplacé 
(ou qu'il n'a pas fini de déplacer ?). Et c'est là que se manifeste le bug 
de la ROM AMSTRAD CPC 464 : si le bloc de variables est trop impor¬ 
tant, il "tape à côté" dans la mémoire et nous ramène autre chose en 
guise de FICH$. 

Arrive le CLOSEOUT, le HIMEM reprend son ancienne valeur, nouveau 
déplacement de la mémoire, mais vers le haut, tout aussi lent qu'à la 
descente... 

Avec OPENIN FICH$, c'est tout aussi long, mais il n'y a pas d'erreur 
pour retrouver la bonne valeur. Le bug ne concerne donc que OPENOUT. 

A présent, expliquons le remède : 

Cet OPENOUT "BIDON" de la ligne 50 a pour seul but de faire abais¬ 
ser l'HIMEM ; comme il n'y a encore rien "en-dessous", c'est instan¬ 
tané. C'est alors l'occasion de figer définitivement le sommet de la 
mémoire disponible par MEMORY HIMEM — 1, même après le CLOSE¬ 
OUT. On laisse donc vide cet espace de 4 ko pour que les OPENOUT 
et OPENIN futurs ne fassent plus ces "coups d'accordéon" sur le bloc 
des variables, lequel restera fixe. Plus d'erreurs de noms de fichiers, 
plus d'attentes avant et après les. enregistrements ou lectures des 
fichiers. 
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LES FONDATIONS 
D'UN PROGRAMME BASIC 

Michel ARCHAMBAULT 


L es premiers programmes Basic d'un débutant commencent presque 
toujours par PR INT ou IN PUT. Vingt ou trente lignes plus loin, on fait 
R U N, et tout s'écroule. De même que l'on ne construit pas une maison sur 
un sol meuble, il est suicidaire de se lancer dans un programme sans prendre 
des précautions dès le départ. Il ne s'agit que de quelques bonnes habitudes 
à prendre. 


La première chose à faire, c'est sur papier, c'est le plan, l'itinéraire, la stratégie 
à suivre portant le nom pompeux d’ORGANIGRAMME; même si ce ne sont 
que quelques notes griffonnées sur une demi feuille. Nous n'en parlerons pas. 
car aujourd'hui on va rester très terre-à-terre. 


LES NUMEROS DE LIGNES 

Les numéros autorisés vont de 1 à 65535 et chacun d'entre eux a le même 
encombrement mémoire, deux octets seulement. D'autre part, il est très 
iniportant de .savoir que le "pas" (l'écart) entre deux numéros de lignes qui se 
suivent n'a absolument aucune incidence sur la vitesse d'exécution du pro- 
qran me. Par exemple, un programme de six lignes numérotées de 1 à 6 (donc 
au pas de 1 ). n'ira absolument pas plus vite que s'il était au pas de 10000 entre 
10 000 et 60 000. Donc n'ayez aucune hésitation pour espacer vos numéros. 

— Dans une suite "naturelle" de lignes, le pas minimum est de 10. 

— Dès la moindre transition, passez à la centaine suivante, exemple la suite 
600, 610, 620, 700 (ou carrément 800). 

— Dès que l'on attaque une autre partie du programme, on passe au millier 
suivant. Exemple ; 1220, 1230, 2000, 2010 

— Chaque ligne en mille est un REM, exemple 3000' CALCULS DES 
MOYENNES. 
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Ne croyez surtout pas que c'est "pour faire joli" ! Ce sont plutôt des ruses pour 
subir sans douleur les deux grandes lois de l'informatique ; à savoir : 

1 — UN PROGRAMME NE FONCTIONNE JAMAIS DU PREMIER COUP 

2 — UN PROGRAMME PARFAIT N'EST JAMAIS DÉFINITIF 
Les principaux avantages sont les suivants : 

— Grâce à ce saut à la centaine ou au millier suivant nous pourrons très 
facilement ajouter plusieurs lignes à tel passage. Si vous pressentez une 
future mise au point laborieuse, sautez plusieurs centaines ou milliers. 
C'est gratuit 

— La localisation rapide. Exemple : la présentation de telle page d'écran ne 
vous plaît guère, vous savez que c'est la "partie 8000". Alors faites : 
LIST 8000-8900 (même si la 8900 n'existe pas). Cinq secondes plus tard, 
vous avez identifié à l'écran la fameuse ligne à modifier. Si tout le listing était 
continu au pas de dix et sans REM. il faudrait compter au moins cinq à dix 
minutes pour retrouver cette ligne... 


ANNONCEZ LA COULEUR 


Avant qu'un programme démarre, il faut fixer de nombreux paramètres, même 
s'ils ne servent que vers la fin. Autrement dit, on "jette les bases". 

— Tout d'abord, en ligne 10, un REM où se trouvent le nom du programme 
et sa date. Pas celle de sa création mais celle de sa dernière modification ; 
ceci afin de pouvoir identifier la version la plus récente... 

— Fixer les variables entières par DEFINT. S'il n'y aura aucun nombre décimal 
ou supérieur a 32 767 ou inférieur à - 32 768, écrire 50 DEFINIT A-Z. 
Sinon (par convention) DEFINT l-N. Ce qui veut dire que toutes les variables 
numériques dont le nom commence par les lettres I, J, K, L, M ou N seront 
des nombres entiers. On peut aussi écrire DEFINT A,B, l-P, Z. Deux énormes 
avantages : chaque variable entière occupe deux octets au lieu de cinq. Les 
boucles FORNEXT dont l'indice est entier.vont deux fois plus vite ! 

NOTE : La "convention" entiers de I à N vient du langage FORTRAN car I et N 
sont les premières lettres du mot "INTEGER" signifiant entier en anglais. D'où 
l'usage courant de ces lettres comme indices de comptage (FOR I = 1 TO..., 
N N + 1, etc.). 

— Confirmer les paramètres d'écran même s'il s'agit de valeurs "normales", 
ce afin de ne pas hériter de celles du programme précédant (qui restent actives 
même après un NEW). Exemple : 

60 INK 0,1 : INK1,24 : INK2, 20 : INK3,6 : BORDER 1 70 PAPERO : PEN 1 : 
MODE 1 : CLS : ORIGINO,0. 

— Tous les DIM sur la même ligne. Exemple : 

100 DIM AC|^(24), NB (120), RESULT (12,3), REC ^ (64) 
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Mettez cette suite en ligne 100, parce que c'est facile à retrouver. Les 
avantages : 

• On n'a pas à réécrire "DIM" à chaque fois 

• En cours de programmation, si on veut modifier ou ajouter un nouveau 
tableau DIM, on n'a qu'à faire EDIT 100. 

• Tous les DIM étant définis en début du programme, on est certain qu'un 
GOTO ou un GOSUB ne viendra pas "repasser" dessus, provoquant ainsi 
un plantage avec "Redim Array Error" (= tableau redimensionné). 

LE MENU-CARREFOUR 

Avez vous remarqué que tous les logiciels du commerce, jeux ou utilitaires, 
on un "menu-carrefour" ? Une page d'écran qui propose les options principales 
, chacune d'entre elles peut aiguiller surd'autres menus; mais en fin d'exécution 
(ou de "GAME OVER"), on revient à ce même point de départ, d'où on peut 
repartir vers une autre voie. C'est l'architecture type de tout programme 
informatique (même en "grosse informatique"), c'est en quelque sorte le retour 
systématique à la table des matières d'un manuel : on va à tel chapitre ou on 
décide de fermer le livre. 

Nous ferons de même, c'est facile, mais surtout si pratique : une "bonne" 
habitude consiste à ce que la première ligne de cette étape menu porte le 
numéro 1000. Toujours la même raison, c'est facile à retenir tout comme 
10 = titre + date et 100 = DIM. Avantage : en cas d'arrêt du programme, soit 
volontaire par la touche ESC ou plantage imprévu, il est facile de "reprendre" 
la main" en conservant les variables en cours en tapant : 

GOTO 1000, et Enter 

Lorsque l'on doit intervenir sur un programme Basic vieux de plusieurs 
années, c'est bougrement pratique, cet "universel" GOTO 1000 ! 

LES MODULES OU SOUS-PROGRAMMES 

A la suite du menu principal, on a les différents départs qui, eux aussi 
reviennent à la même ligne (sauf pour END), et que trouvons-nous sur cette 
ligne ? GOTO 1000. 

En somme, le "moteur" du programme va des lignes 10 à 2000, ce qui peut 
faire une trentaine de lignes, que le programme fasse deux ou vingt kilo- 
octets ! Ce qui change, c'est la taille et le nombre de ces modules commençant 
en ligne 3000. Avantages : 

Vous avez conçu un petit programme qui marche bien, et tellement intéressant 
que vous décidez de l'étoffer, d'en faire un gros programme. Ne le retapez pas ! 
Ajoutez des lignes aux divers modules, ou refaites complètement tel module. 
Par exemple, le "bloc 8000" qui faisait 10 lignes va maintenant en faire 68 ! 
On peut créer de nouvelles options, donc de nouveaux sous-programmes, et 
ce sans déranger le reste ! 
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OUFLQUES REMARQUES 


- Vous voulez un joli titre avec animation, son, etc. Vous ne pouvez pas le 
loger entre les lignes 500 et 990. Faites simplement ; 

500 TITRE 

510 GOSUB 20000 

Et "là-bas", vous aurez toute la place nécessaire. 

— Dans notre exemple, nous avons prévu les lignes 2010 à 2020 pour resti¬ 
tuer les options par défaut que l'on a lors de la mise sous-tension (PAPER. PEN. 
INK, ORIGIN, etc.) ; seulement celles que l'on a dérangées en cours du pro¬ 
gramme. C'est remettre le micro dans l'état où on l’a trouvé. Un peu d'ordre 
évite bien des bizarreries sur le programme que l’on chargera après. Si vous 
vous êtes servi d'une imprimante, mettre au début et à la fin du programme • 

PRINT#8,CHR^(27) ; " 

qui vide le buffer des consignes de l'imprimante. 


CONCLUSION 

Toutes ces méthodes, ces "bonnes habitude.s", n'ont vraiment rien de 
contraignant, et nous avons démontré tous les avantages que Ton pouvait tirer 
d une architecture rationnelle sur des fondations solides. 





REDEF'CAR 


Stéphane CLOIREC 


V ous qui avez tant peiné, armé de votre feuille de papier et de votre fidèle 
crayon, pour créer les caractères graphiques indispensables à vos program¬ 
mes. ne désespérez plus ! 

REDEF'CAR va simplifier ce qui était autrefois une corvée, grâce aux différentes 
fonctions qui suivent • 

— Vous mana uvrez le petit curseur dans la fenêtre d'édition grâce au pavé de 
curseur. 

— Lorsque vous appuyez sur la barre d'espace, la case sur laquelle le curseur 
se trouve change de couleur (noire si elle était blanche et blanche si elle était 
noire). 

— (E) Efface le caractère de travail. 

— (I) Permet de faire une version "inversée” du caractère de travail (négatif 
de photo). 

— (M) Comme miroir, produit une image retournée du caractère de travail par 
rapport à l'axe vertical. 

— (D) Cette fonction vous permet de modifier ou de continuer un caractère 
dé|à existant. Il vous faut rentrer les 8 valeurs du "SYMBOL", puis le program¬ 
me vous rend la main. 

— (S) Utilisant une routine en langage machine, ceci permet de conserver, 
sous la forme d'une ligne Basic (ex. : SYMBOL 140,1,2, 4, 8, 16, 32, 64,1 28), 
le caractère que vous venez de créer. 

— (Q) Quitte le programme et vous permet de lister les caractères que vous 
avez mémorisés avec la fonction "SYMBOL" (S). 

ATTENTION : 

— Avant chaque utilisation du programme, resetez l'ordinateur par CTRL 
SHIFT ESC. 

— Après avoir quitté le programme, et si vous avez conservé des caractères 
par "SYMBOL", n'oubliez pas de les sauvegarder pour un éventuel "MERGE". 
— N'oubliez pas d'intégrer au programme utilisant les caractères graphiques 
l'ordre : SYMBOL AFTER 139. 
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— Il faut faire "RUN" après avoir quitté l'éditeur, pour pouvoir visualiser les 
symboles créés. 

10 ' 

20 ' i # 

30 ' # REDEF'CAR » 

40 ‘ t 

50 ' # LOADER i 
60 ' i t 

70 ' 

80 ‘ 

90 ' 

100 SYMBOL AFTER 129 

110 MODE IsSPEED INK 50,50 

120 SYMBOL 133,195,231,52,24,44,231,195,0 

130 SYMBOL 134,0,231,20,40,231,0,0,0 

140 SYMBOL 139,4,8,60,102,126,96,60,0 

150 INK 0,13:B0RDER 13 

160 INK 1,0:INK 2,24:INK 3,2,20 

170 WINDOW il.6.38,5,12!PAPER ll.lsCLS#! 

180 WINDOW il,5,37,4,ll!PAPER ll,2!CLS#l 
190 WINDOW #2,10.35,17,19:PAPER #2,l!CLS#2 
200 WINDOW #2,9,34.16,18îPAPER t2.2!CLS#2 
210 LOCATE #1.13,2îPRINT#l,“REDEF'CAR" 

220 LOCATE I1.13,3;PRINT41,STRINGI(9,133) • 

230 LOCATE #1,4,6!PRINTI1."REDEFINISSEUR DE CARACTERES" 

240 LOCATE il,4,7îPRINTil,STRINGI(27,134) 

250 LOCATE i2,3,2!PRINT I2.CHR$(164)!“19B5 St*!CHR$(139);"phân9 CLOIREC" 
260 PEN 3SL0CATE l2,24îPRINT"CharQeiiient en cours." 

270 FOR 1=1 TO 2500;NEXT I 
280 RUN'îREDEFl" 


10 ' 

20 ' I I 

30 ' i REDEF'CAR I 

40 ' # i 

50 ' i (c) S.CLOIREC # 

60 ' I I 

70 ' mmmumm 

80 ' 

90 ' 
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100 INK 3,26:L0CATE A,245 PEN 3!PRINT‘'Voulez-vous les instructions ?" 

110 IF INKEY(34)=0 THEN 60SUB 1790 ELSE IF INKEY(46)<>0 THEN 110 
120 ' 

130 ' FENETRES 
140 ’ 

150 INK 0,13:INK l.OîINK 2.24!lNK 3,24.13!l10DE IsBORDER 13 
160 ' 

170 WINDOW 40,2,40,23.25!PAPER HO.liCLS #0 
180 WINDOW #l,2.11,2.1l!PAPER «I.IjCLS il 
190 WINDOW i2.14,22,2.1ljPAPER i2,l!CLS 12 
200 WINDOW 13,25.40,2,lltPAPER l3,l!CLS 13 
210 WINDOW 14,2,40,14,2Û:PAPER i4,l:CLS 14 
220 WINDOW i0,l,3?,22,24:PAPER iO,2:CLS 10 
230 WINDOW il,l,10,l,10!PAPER #1,2:CLS il 
240 WINDOW i2,13,21,1.10!PAPER i2,2:CLS i2 
250 WINDOW i3,24,39,l,10!PAPER i3,2;CLS i3 
260 WINDOW i4,l,39,13,19!PAPER i4,2:CLS i4 
270 ' 

280 ' CARACTERES GRAPHIQUES 
290 ' 

300 SYMBOL AFTER 128jDEFINT A-ZsDIH VLIG(8),CAR(8,8)îSPEED INK 50,50 
310 ' 

320 SYMBOL 129,255,129,129,129,129,129,129,255 
330 SYMBOL 130,255,153,153,231,231,153,153,255 
340 SYMBOL 131,231,231,231,24,24,231,231,231 
350 SYMBOL 132.255,255,255,255,255,255,255,255 
360 SYMBOL 133,195,231,52,24,44,231,195,0 
370 SYMBOL 134,0,231,20.40,231,0,0.0 
380 SYMBOL 135,0,4,70,123,123,70.4,0 
390 SYMBOL 136,0,0,0.248,124,0.0.0 
400 SYMBOL 137,244,135,245,7,120,96,28.252 
410 SYMBOL 138,225,128.228,8,18,37,71,133 
420 SYMBOL 139,4,8,60,102,126,96.60.0 
430 ' 

440 ' INITIALISATION 
450 ' 

460 KEY 138,“INK l.OsINK 0,13;BORDER 13îPEN lîPAPER OsMODE 2îLIST"+CHR$(l 
3) 

470 PEN 1 

480 LOCATE 2,2!PRINT CHR$(137)|" REDEF'CAR ";CHR$(13B)j" “;CHRi(164)+"19 
85 St*;CHRin39)|"phane CLOIREC";LOCATE 4,3;PRINT STRINB$(9,134) 

490 NUMLIG=1;NUHSYMB=140!ADR=I(7000 
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500 mm 1070 

510 LCCATE #3,6,2:PRINT#3,nH0DE]'';FRINTil3.SPCl5»+3TRINGl(6,133) 

520 LOCATE i3.3.5!PJ:-INTI3,''ZER0 UN" 

530 -OCATE ll3,3,6îPRINT#3,STRIN6l(4,134);SPCi5i!STRIN6$(2.l34) 

540 LGCATE l4.16.2;PRINTI4."C0Hf1ANDE5-':PRINT#4.5PCfl5):STRINB$l<î.l33) 

550 LOCATE i4.1,5;PRINTK," [D3 «QDI^IE [E3 EPPACE (Qj QUITTE" 

VO PPIN'TH," U' INVERSE [«] NIPQIR [S3 SYNBGL" 

5‘’0 ■ 

550 routine principale 

5^0 

îOO CALL mic 

610 IF INnEï. 5;=0 TiEN El£E [p INhE^< 1;=0 MN ?=/+! 

:20 jp lN‘'E^;0^=v THEN Y=Y-! EL5E IF IN!'.EV-2i=0 T^EN v=V+l 

•*i30 IP >EN y=ïll!N ElSE IP ThEN 

:40 ;p ThEN ELSE jP Y>y«AV THEN y=yMA): 

550 lOCATE Ül.A.oiIF CAR^A-l.B-b^O THEN PRINT 4l.CHRl<i29 ) ELSE pRINï 41 
.C4;t-!32^ 

:50 lOC^TE 41./,fi:P :ARiX-:.^-ii=0 T^^EN PRIN: 4l.CHPHl30j ELSE PRINT rti 
,C'’PM31i 

•:70 LOCATP M./.fîIP IN^Et ■.4;;<;0 ThEN ?00 

éBO îP CAR'.«.-i.y"li=0 THEN CAR‘3,-1.i-n=l:PRINT4l.CHRîU31)rVL15(y-13=VLl 
3 / f -1. f 2- (<î- V; î lOCATE #2 . MEN ( 3TRI ( VIIS ( Y- i ; 1 ?, V ! PR INT42.5TR$ ( VLIG ( Y-1 ) .• : 
PLOT 4ûB+)'^4.2TE+i6“2*y,l:PLCT 40B*):*4+2,2'8+l6-2*y,l:PL0T 55û+^2.2"8+]e 
->/.l:30TO 700 

6^0 •:AP^y-Ur-l;=0îPRINT41.CHR$(1305:VLI3iY-l)=VLl‘3(Y-l}-2' (■-.y);LQCAT£42 
.o.tiPRINTSZ/ ":L0CATE42.P-LEN'.5TR$(VLlG(y-l)yi.V:PRINTII2.STR$(VLlG<y- 
l'ijPLGT 408+X*4,2''8+16-2*Y,2!PL0T 408+)(M+2,278+16-2*Y,2 îPLQT 550+X*2,2T 
6Mo-2*V.2 
700 A=X!B=y 

IF îNkEY; 55I=0 ThEN SQSü8 1070 

IP INKEf‘.67i=0 ThEN CL 3 :lOCATE 12.2!PRINT" FIN DE PROGRAMME.''!60SU6 1 
2îCALL S-eOOOiFGKE U70+LENDAT+l.C!P0kE Î!i70+LENDAT+2.0!END 
• P :N^'Ey(35''=0 THEN GOSUB 790 

r INKEV.6l=0 ThEN GDSüB P 30 

’p IN'CEy-Tg/-) THEN GOSiJB 1220 

IF INKEV';60)=0 ThEN GOB'jB 1380 

iiviTn jjiji* 


’ÎO 


720 

6^0 

730 

'40 

'50 

7A0 

770 

790 

7^0 

soo 

810 

820 


ROUTINE INVERSE' 

t 

FOR 1=1 70 8;VLIG(I;=0 jNE:(T I 

FOR J=1 TO SîFOR 1=1 TO 8;IF CARd,J}=0 THEN CARn.J.i=l El 3E CARd.J? 
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=0 

B30 IF CAR(I,J)=1 THEN VLIG{J)=VLI6(J)+2"(8-I) 

840 NEXT I.J 

850 FOR J=1 TO 8jF0R 1=1 TO 8 

860 LOCATE lll,I+l,J+l:IF CAR(I,J)=1 THEN PRINT #1,CHR$(132) ELSE PRINT U 
CHR$(129) 

870 IF CAR(I,J)=1 THEN C0UL=1 ELSE C0UL=2 

880 PLOT 408+(I+l)M,278+16-2»(J+l),C0UL:PL0T 408+(I+l)*4+2,278+l6-2*(J+l 
),COULîPLOT 550+(I+l)*2,278+16-2*(J+l),C0UL 
890 NEXT I,J 

900 IF FLAG=1 OR FL1=1 THEN RETURN 
910 GOSÜB 1190 
920 RETURN 
930 ' 

940 ' ROUTINE 'MODIFIER' 

950 ' 

960 GOSUB 1070 
970 PRINT CHRH7) 

980 CLSjLOCATE 10,2îPRINT"ENTR£2 VOS VALEURS." 

990 FOR 1=1 TO BîLOCATE i2,6.I+l!PRINTi2,* ";LOCATE I2,6,I+1;INPUT 42, 
"".VLIGdlsIF VLIGIIXO OR VLIG(I)>255 THEN I=I-l 
1000 NEXT I 
1010 GOSUB 1190 

1020 FOR J=1 TO 8}LIGI=BINI(VLIS(J))!F0R 1=1 TO LEN(LIG$)îPT=VAL(HID$(LIB 
$,I,1))!CAR(8-LEN(LIGI)+I,J)=PT!NEXT I,J 
1030 FLA6=1;G0SUB 850îFLAB=0 

1040 LOCATE 2,2!PRINT CHR$(137);" REDEF'CAR ";CHR${138);" "îCHR$(164)+"l 
985 St";CHR$(139)5“phane CLOIREC"!LOCATE 4,3!PRINT STRINGI(9,-134) 

1050 GOSUB 1190 
1060 RETURN 
1070 ' 

1080 ' ROUTINE 'EFFACE' 

1090 ' 

1100 ERASE VLIG,CAR 

1110 FOR 1=1 TO 8:L0CAT£ I1,2,I+1;PRINTI1,STRING$(B,129)!NEXT I 
1120 LOCATE I3,1,7:PRINTI3,SPACE$(4B) 

1130 PLOT 398,266,lîORAHR 0,32:DRAWR 66,0:DRAWR 0,-32!DRAHR -66,0 

1140 PLOT 528,266,1:DRAHR 0,32iDRA«R 64,0îDRAWR 0,-32îDRAWR -64,0 

1150 PLOT 414,274,3!DRAWR 34,0îDRAWR 0,18:DRAWR -34,0!DRAWR 0.-18 

1160 PLOT 552,274;DRA«R 18,0;DRAHR O.lBîDRAWR -18,0îDRAWR 0,-18 
1170 IF FL1=1 THEN RETURN 
IIBO DIM CAR(8,B},VLIG(e} 
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1190 XMIN=2:XltAX=9jyi1IN=2îYhAX=9îA=2îB=2iXs2sY=2;L0CATEIl,;(,YîIF CAR(X-1. 
Y-l)=l THEN PRINTI1,CHRI(131) ELSE PRINT ll,CHRI(130) 

1200 FOR 1=1 TO B;LOCArE #2.2,l+l!pRINT I2,CHR$(136);HID${STRI(I),2);CHR$ 

(135)!SPCI4-LEN(STRI(VLIS{I))))îSTR$(VLIG(I)):NEXÎ 

1210 RETURN 

1220 ' 

1230 ' ROUTINE 'MIROIR' 

1240 ' 

1250 FL1=1:CLSjL0CATE 12,2iPRINT*F0NCTI0N EN COURS"!PRINT CHR$(7) 

1260 60SUB 1110:ERA5£ VLI6 
1270 DIM CAR1(8,8),VLIG(8) 

1280 FOR J=1 TO 8:F0R 1=1 TO BîCAR1(I,J)=CAR(9-I,J)!NEXT I,J 
1290 FOR J=1 TO SjFDR 1=1 TO 8;CAR{I,J)=CAR1(I,J)îNEXT I,J 
1300 ERASE CARI 
1310 60SUB 850 

1320 FOR J=1 TO BîFOP 1=1 TO 8îIF CAR{I,J)=1 THEN VLI6(J)=VLI6(J)+2'^(B-I) 
1330 NEXT I,J 
1340 BOSUB 1190 

1350 LOCATE 2,2jPRINT CHRI(137);'' REDEF'CAR “iCHRIinS);"‘ “;CHRI(164)+-l 
985 St“îCHRI(139)j"phânB CLOIREC:LOCATE 4,3!PRINT STRIN6I(9.134) 

1360 FL1=0 
1370 RETURN 
1380 ' 

1390 ' ROUTINE 'SYMBOL' 

1400 ' 

1410 CLSsLOCATE 12,2!PRINT"SYMB0L EN C0URS“+CHR${7) 

1420 1=1 r IF ADR=U000 THEN LENDAT=32 

1430 POKE ADR,33 

1440 POKE ADR+1.0 

1450 POKE A0R+2,NUMLI6 

1460 POKE ADR+3.0 

1470 POKE ADR+4,207 

1480 POKE ADR+5,32 

1490 POKE AOR+6,25 

1500 POKE ADR+7,NUMSYMB 

1510 FOR BC=ADR+8 TO ADR+29 STEP 3 

1520 POKE BC,44!P0KE BC+1,25:P0KE BC+2,VLI6(I) 

1530-1=1+1 
1540 NEXT BC 
1550 POKE ADR+32,0 
1560 ADR=ADR+33 
1570 NUI1LIB=NUMLIG+1 
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1580 NUMSYHB=NUMSYHB+1 

1590 LENDAT=L£NDAT+33 

1600 FOR att=l 10 IOOOjNEH att 

1610 LOCATE 11,2!PRINT“EFFACEHENT (0/N) ?";IF INKEY(34)=0 THEN 60SUB 110 
0 ELSE IF INKEY(46)<>0 THEN 1610 

1620 LOCATE 2,2!PR1NT CHR$(137);" REDEF'CAR "îCHR$(138);“ "5CHR$(164)+“1 
9B5 St“;CHR$(139);*phan8 CLOIREC’îLOCATE 4,3;PRINT STRING$(9,134) 

1630 RETURN 
1640 ' 

1650 ' IMPLANTATION DU L.M. 

1660 ' 

1670 RESTORE 1770 

1680 FOR BC=i8000 TO iBOOO+ll 

1690 READ Cl!C=VAL(*i“+CI) 

1700 POKE BC,C 
1710 NEH 

1720 P$=H£XI(LENDAT) 

1730 IF L£N(P$)<>4 THEN P$=''0''+P$îG0T0 1730 
1740 POKE ît8007,VAL("i"+RIBHTI(P$,2)) 

1750 POKE «(8008,VAL(“Î(“+LEFT$(P$,2)) 

1760 RETURN 

1770 DATA 21,00,70,11,70,01 
1780 DATA 01,00,00,ED,B0,C9 
1790 ' 

1800 ' INSTRUCTIONS 
1810 ' 

1820 MODE 2îINK 1,0 

1830 LOCATE 16,1 jPRINT"REDEF'CAR"!L 0CATE 16,2!PRINT STRINe$(9,l33) 

1840 PRINT!PRINT:PRINT;PRINT“ Redef'car est, cobijs son no« l'indique, u 
n redefinisseur de caractères. Il vous permettra de créer facilement to 
us les types de symboles qraphiques dont vous pourrez avoir besoin dans 
vos propre programmes." 

1850 PRINT;PRINTjPRINT" Voici les commandes que cet utilitaire met a vo 
tre disposition.'" 

1860 PRINTîPRINT SPC(10)î“- EFFACE î vide le caractère qui était a l'aff 
ichage" 

1870 PRINT SPC(10)|“- INVERSE ! produit une image inversee du caractère d 
B travail" 

1880 PRINT SPCdO)!"- MODIFIE j permet de taper les codes d'un symbole po 
ur modification" 

1890 PRINT SPCdO)MIROIR ; retourne le caractère de travail" 

1900 PRINT SPCdO);"- SYMBOL î stocke le caractère de travail en mémoire 
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1910 PRINT SPC(IO);"- QUITTE ; arrêts le prograiBue et affiche les caract 
eres ayant etB’'îPRINT SPC(22) ! "stockes avec la fonction 'SYMBOL'" 

1920 LOCATE 1,25!PRINT"Appuvez sur une touche pour retour au prograniBe... 

a 

1930 CALL 1(BB18!CALL îtBBlB 
1940 RETURN 

TRUCS ET ASTUCES 

Gérard MATTERN - 92 VANVES 

Sous l'article MIRAGES de Denis BOURQUIN, j'ai cru voir, dans le pre¬ 
mier programme, un "déplombeur"... ou je ne m'y connais guère. Ce 
cher Denis s'est cependant beaucoup fatigué, car on peut faire la même 
chose en plus court, ...même beaucoup plus court. Voici le procédé : 
Après initialisation de la machine (SHIFT CTRL ESC), tapez les POKE 
suivants dans l'ordre : 

POKE &AC03,&AE: 

POKE &AC02,&45: 

POKE &AC01,&32... 

et c'est tout ! 

Après un Bad, le programme est toujours en mémoire, et on peut le 
lister, le modifier et le sauvegarder, protégé ou non. 

Principe de fonctionnement : Après un LOAD, et au retour à READY, 
l'AMSTRAD vérifie si le programme qui vient d'être lu était protégé ou 
non en testant l'octet &AE45 et détruit tout s'il y avait protection. L'as¬ 
tuce consiste à intercepter le READY et à remettre à zéro l'octet en 
AE45 avant le test. Ceci se fait par le renvoi en AC01. 

Voilà, peut-être pourrez-vous ouvrir avec ça la rubrique "Trucs et Astu¬ 
ces". En tout cas, voici un nouveau sujet de concours pour lequel je 
pense être bien placé : le meilleur utilitaire en une ligne (demi-ligne I) 
de Basic. 

Je termine par une question que je n'ai pas résolue : Si dans une rou¬ 
tine binaire on veut lire un fichier par CIOPEN (BC77H), on lit bien sur 
cassette quand on fonctionne sur cassette (ITAPE), mais sur disque. 
Il se passe des choses curieuses : 

— Si on exécute la routine par RUN (chargment disque et exécution), 
...on lit la cassette ! 

— Si on charge par LOAD, puis exécute par CALL (à l'adresse de départ 
de RUN), ...on lit le disque ! 

Vos lecteurs experts, auraient-ils une idée sur la question (bug ?). 

ATTENTION ! Ces 3 POKE ne sont valables que pour le CPC 464. 
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MAGIQUE 


4 


CARRÉ 


Vannary TEA 


V ous aimez jouer avec les nombres ? Voici un programme capable de 
générer des carrés magiques. Comment ? Vous ne connaissez pas ? 
Essayez pour voir ! 


Un carré magique est un carré divisé en cellules dans lesquelles les nombres 
entiers à partir de 1 sont arrangés de telle manière que les sommes de 
chaque ligne, de chaque colonne et de chaque diagonale soient égales. 

Ce programme vous calcule tous les carrés magiques d'ordre N impair dont le 
maximum est fixé à 91. En effet, à partir de 93, la mémoire déborde (Memory 
Full). Le tableau B (K,L) est un tableau intermédiaire utilisé pour le remplissage 
des cases par des nombres T qui sont transférés au fur et à mesure dans le 
tableau A (I, J) après vérification que ladite case est bien "inoccupée" ; dans 
le cas contraire, il faut le mettre ailleurs (voir organigramme). 

L'impression du carré magique se fait en alignement par lignes et colonnes 
uniquement jusqu'à la dimension 14 ; au delà, comme il est impossible 
d'imprimer toutes les colonnes sur une même ligne, il est donc affiché ligne 
par ligne. D'autre part, il y a possibilité de vérifier la fiabilité du carré magique 
affiché. 

La durée de calcul d'un tableau 91 x 91 est d'environ 5 minutes. 

130 ' 

140 CLS ; «ODE 0 

150 LOCfiTE 3,10!PRrNT STRIN6$(16,CHR$(210)) 

160 LOCATE 3,ll!PRINT STRINGI(1,CHR$(211)) 

170 LOCATE 18,ll!PRINT STRINGI(1,CHRI(209)) 

180 LOCATE 3,12!PRINT STRING$(1,CHR$(211)) 

190 LOCATE 18,12;PRINT STRING$(1,CHRI(209)) 

200 LOCATE 3,13!PRINT STRINe${l,CHRI(211)) 

210 LOCATE 18,13!PRINT STRINGI(1,CHR$(209)) 
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220 LOCATE 3,14:PRINT STRINB$(l.CHRi(211)) 

230 LOCATE IB.MîPRINT STRIN6I(1,CHRI(209)) 

240 LOCATE 3,15:PRINT STRINGI(1.CHR${211)) 

250 LOCATE 1B,15:PRINT STRINei(l,CHR$(209)) 

260 LOCATE 3,16!PRINT STRING$(16,CHR$(20B)) 

270 LOCATE 4,13;PRINT CHR$(67)+CHR$(65)+CHR$(B2}+CHR$(B2)+CHRI(69)+'' HC 
HR$(77)+CHRI(65)+CHR$(71)+CHR$(73)+CHRI(B1)+CHR$(B5)+CHR$(69) 

280 FOR F=1 TO 1200 î NEXT F 
290 ' 

300 ' 

310 CLS ! MODE 2 

320 DEFINT A-M,0-Z 

330 PRINTîPRINTsPRINTsPRINT 

340 PRINT* —> ENTREZ LA DIMENSION DU CARRE MA6I0UE î“;:INPUT N 
350 PRINT 

360 IF NOINTIN) THEN PRINT CHRI(7);PRINT" ♦ LA DIMENSION DU CARRE MA6IQU 
E DOIT ETRE UN NOMBRE ENTIER NATUREL. DESOLE !":BOSUB 1740:S0T0 310 
370 IF N<3 THEN PRINT CHR${7):PRINT" « LE CARRE MAGIQUE NE PEUT EXISTER Q 
UE POUR UNE DIMENSION SUPERIEURE A 2":G0SUB 1740;GOTO 310 
380 IF N>91 THEN PRINT CHR$(7);PRINT" * IL EST IMPOSSIBLE DE FAIRE LE CAL 
CUL POUR UN CARRE MAGIQUE D'ORDRE SUPERIEUR A 91, CAR LA 

MEMOIRE DEBORDE. VRAIMENT DESOLE !“sGOSUB I740 jG0T0 310 
390 Q=INT(N/2) 

400 IF N/2=Q AND N<=91 THEN PRINT CHRKTIjPRINT" ♦ JE NE TRAITE QUE DES C 
ARRES MAGIQUES D'ORDRE IMPAIR. DESOLE !"î60SUB 1740;60T0 310 
410 M=N+1 

420 DIM A(N,N),B(M,M) 

430 ' 

440 '..INITIALISATION DU TABLEAU A. 


450 ' 

.460 FOR 1=1 TO N 
470 FOR J=1 TO N 
480 A(I,J)=0 
490 NEXT J : NEXT I 
500 ' 

510 ' .INITIALISATION DU TABLEAU B 

520 ' 

530 FOR K=I TO M 
540 FOR L=1 TO M 
550 B{K,L)=0 
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CALCUL DU CARRE MAGIQUE 


560 NEXT L! NEXT K 
570 ' 

5B0 ' - 

590 ' 

600 PRINTîPRINT 

610 FDR FM TO NîNEXT F \ PRINT“ »> PATIENCE S.V.P., JE CALCULE «< “ 

620 PRINT!PRINT 

630 T=0jI=0îJ=0’5K=0!L-0 

640 K=CINT(N/2) 

650 LMNT{N/2) 

660 K=K+1 
670 L=L+1 
680 T=T+1 
690 B(K.L)=T 

700 IF K>N THEN GOTO 740 
710 IF L>N THEN GOTO 730 
720 I=K ! J=L î GOTO 770 
730 I=K : J=H-N ; GOTO 770 
740 IF L>N THEN GOTO 760 
750 I=I1-N ! J=L ! GOTO 770 
760 I=H-N ! J=N 
770 IF A(I,J)=0 THEN GOTO 820 
780 I=I+I 

790 IF I>N THEN I=M-N 

800 IF J>=2 AND J<N OR L=N THEN JM-1 

810 GOTO 770 

820 A(I,J)=B(K,L) 

830 CPT=CPT+1 

840 IF CPT<>N^2 THEN K=I : L=J ; GOTO 660 

850 PRINT:PRINT 

860 IF N>13 THEN GOTO 1060 

870 ' 

980 ' - IMPRESSION DU CARRE MAGIQUE D'ORDRE INFERIEUR A 15- 


890 ' 

900 CLS ! MODE 2 

910 PRINT TAB(18)''«H»m CARRE MAGIQUE D'ORDRE î";Nî"Hm*»4- 
920 PRINTîPRINTîPRINT 
930 M 

940 FDR IM TO N 
950 FOR JM TO N 







960 D=D+1 

970 PRINT TAB(3*D) Ad,J) ; 

980 D=D+1 
990 NEU J 
1000 D=0 
1010 NEXT I 
1020 GOTO IIBO 
1030 ' 

1040 ‘ . IMPRESSION DU CARRE MAGIQUE D'ORDRE SUPERIEUR OU EGAL A 15 


1050 ' 

1060 PRINT CHR${7); PRINT’'POUR UN CARRE MAGIQUE D'ORDRE SUPERIEUR A 13, I 
L EST IMPOSSIBLE D'AFFICHER TOUTES LES COLONNES DU CARRE MAGIQUE SUR 
UNE MEME LIGNE. AUSSI, ON SE PROPOSE DE L'AFFICHER LIGNE PAR LIGNE.“îGOS 
ÜB 1740 

1070 PRINTïPRINTîPRINT 
1080 CLS ! MODE 2 

1090 PRINT TAB(18) CARRE MAGIQUE D'ORDRE î “îNi 

1100 PRINT;PRINT;PRINT 
1110 FOR 1=1 TO N 
1120 PRINT'IIGNE “;I;“: 

1130 FOR J=1 TO N 
1140 PRINT Ad.J); 

1150 NEXT J 

1160 PRINTîPRINT:PRINT 
1170 NEXT I 

1180 PRINT;PRINT;PRINTîPRINT" —> VOULEZ-VOUS EFFECTUER UNE VERIFICATION 
DE CE CARRE MAGIQUE (0/N) "jîINPUT R$ 

1190 IF R$<>“0" AND R$<>"o'' AND R$<>*N" AND R$<>“n“ THEN PRINT CHR$(7)!PR 

INTîPRINT^ERREUR !!! REPONDEZ PAR 0 OU N";GOTO 1180 

1200 IF R$=''N'' OR Rl="n“ THEN GOSUB 1670 ! GOTO 1610 

1210 PRINT;PRINT 

1220 CLS ! MODE 2 

1230 PRINT TAB(IO) - LA SOMME DE CHAQUE LIGNE DU CARRE MAGIQUE " 

1240 PR1NT:PRINT;PRINT 

1250 FOR 1=1 TO N 

1260 FOR J=1 TO N 

1270 ■S!=S!+Ad,J) 

1280 NEXT J 

1290 PRINTîPRINT TABd6)“LIGNE "îlî": SOMME ='';S! 

1300 S!=0 
1310 NEXT I 
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1320 PRINTîPRINT!PRINT;PRINT 
1330 GOSUB 2040 
1340 CLS ! MODE 2 

1350 PRINT TABdO) LA SOMME DE CHAQUE COLONNE DU CARRE MAGIQUE- 

H 

1360 PRINTîPRINTsPRINT 
1370 FOR J=1 TO N 
1380 FOR 1=1 TO N 
1390 S!=S!+A(I,J) 

1400 NEXT I 

1410 PRINTjPRINT TAB(16)"COLONNE SOMME ="jS! 

1420 S!=0 
1430 NEXT J 

1440 PRINTsPRINTsPRINT 
1450 BOSUB 2040 
1460 CLS ! MODE 2 

1470 PRINT"— LA SOMME DE CHACUNE DES 2 DIAGONALES PRINCIPALES DU CARRE 
MAGIQUE 

1480 PRINT!PRINT;PRINT 
1490 FOR 1=1 TO N 
1500 J=I 

1510 S!=S!+A(I.J) 

1520 NEXT I 

1530 PRINT;PRINT TABdO)"SOMME DE LA 1ERE DIAGONALE î"|S! 

1540 S!=0 

1550 FOR I=N TO 1 STEP -1 
1560 J=1 

1570 S!=S!+A(I,J) 

1580 NEXT I 

1590 PRINTjPRINT TABdO)"SOMME DE LA 2EHE DIAGONALE ;";S! 

1600 GOSUB 1670 

1610 PRINTîPRINTjPRINT" ===> VOULEZ-VOUS FAIRE UN AUTRE CARRE MAGIQUE (0/ 
N) "jjINPUT Al 

1620 IF Al<>"0" AND AI<>”o" AND AI<>"N" AND Al<>"n" THEN PRINT CHRI(7):PR 

INTîPRINT"ERREUR !!!.REENTREZ 0 OU N*! B0T0.4610 

1630 IF Al=*0" OR AI="o" THEN RUN 

1640 PRINTjPRINT 

1650 END 

1660 PRINTjPRINT 

1670 - SOUS-PROGRAMME DE REINITIALISATION DES VARIABLES - 


1680 
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1690 ERASE A,B 
1700 RETURN 
1710 ' 

1720 ' .S0US-PR06RAMHE DE TEST DE LA TOUCHE 


1730 ' 

1740 SYMBOL AFTER 30 

1750 SYMBOL 128,63,63,33,33,1,1.1*1 

1760 SYMBOL 129,252,252.132,132,128,128,128,128 

1770 SYMBOL 130,1,1,1,1,3,3 

1780 SYMBOL 131,128,128,128,128,192,192 

1790 SYMBOL 132,15,15,112,112,224,224,224,224 

1800 SYMBOL 133,224,224,56,56,28,28,28,28 

1810 SYMBOL 134,224,224,112,112,15,15 

1820 SYMBOL 135,28,28,56,56,224,224 

1830 SYMBOL 136,56,56,56,56,56,56,56,56 

1840 SYMBOL 137,28,28,28,28,28,28,28,28 

1850 SYMBOL 138,56,56,56,56,15,15 

1860 SYMBOL 139,28,28,28,28,240,240 

1870 SYMBOL 140,31,31,112,112,224,224,224,224 

1880 SYMBOL 141,240,240,28,28 

1890 SYMBOL 142,224,224,112,112,31,31 

1900 SYMBOL 143,0,0,28,28,240,240 

1910 SYMBOL 144,56,56,56,56,56,56,63,63 

1920 SYMBOL 145,28,28,28,28,28,28,252,252 

1930 SYMBOL 146,56,56,56,56,56.56 

1940 SYMBOL 147,28,28,28,28,28,28 

1950 SYMBOL 148,255,255,56,56,56,57,63,63 

1960 SYMBOL 149,252,252,12,12,0,128,128,128 

1970 SYMBOL 150,57,56,56,56,255.255 

1980 SYMBOL 151,128,0,12,12.252,252 

1990 SYMBOL 152,1,3,6.12,24,48,96,192 

2000 SYMBOL 153,192,96,48,24,12,6,3,1 

2010 SYMBOL 154,0,0,0,0,0,0,0,0 

2020 SYMBOL 156,128,192,96,48,24,12,6,3 

2030 SYMBOL 157,3,6,12,24,48,96,192,128 

2040 PRINT:PRINT 

2050 LOCATE 33,23;PRINT CHRI(152)|!PRINT CHR$(154)j!PRINT CHR${128){;PRIN 
T CHR$(129);!PRINT CHR$(132);!PRINT CHR$(133);!PRINT CHR$(136)!:PRINT CHR 
$(137);!PRINT CHR$(140 );jPRINT CHR$(141);î PRINT CHRI(144)5!PRINT CHR$(14 
5);SPRINT CHR$(148);!PRINT CHR$(149) 

2060 LOCATE 47,23îPRINT CHRI(154);;PRINT CHR$(156); 
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2070 LOCATE 33,24:PRINT.CHR$(153);;PRINT CHRI(154);:PRINT CHRI(130)};PRIN 
T CHRI{131)|!PRINT CHR|{134);!PRINT CHR$(135)sîPRINT CHRI(138);!PRINT CHR 
$(139);:PRINT CHRI(142);:PRINT CHRI(143);îPRINT CHR$(146);:PRINT CHRI(147 
)|!PRINT CHRI(150)}!PRINT CHR$(151); 

2080 LOCATE 47,24:PRINT CHRI(154)|:PRINT CHR$(157)! 

2090 IF INKEY$="“ THEN GOTO 2090 
2100 RETURN 
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MAZE 



G. MANKOWSKI 


V ous êtes enfermé dans un labyrinthe de 10 étages, dont vous devez 
sortir au plus vite. La porte de sortie est fermée par 3 cadenas 
commandés par des clés rangées dans des coffres répartis sur chacun des 
dix étages. 

Vous avez deviné ? Votre travail consiste à retrouver les 3 clés, mais chaque 
coffre n'en contient pas forcément une ! Pour ouvrir les coffres, il faut d'abord 
trouver la combinaison de 5 lettres. Pour corser le tout, vous êtes poursuivi par 
des fantômes malicieux, qui vous subtilisent les clés pour les remettre à leur 
place, dans les coffres. Le reste de la règle du jeu est énoncé parle programme. 
A vos claviers ! 
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80 

90 MODE 1 
100 DEFINI A-Z 

110 CLSîLOCATE MOîPRINT “Jouez-vous sur un écran «onochroee ou couleu 
r (M/C) ?" 

120 R$=UPPER$(INKEYI):IF R$="H" THEN 140 ELSE IF RIO'T" THEN 120 
130 IF R$=“C“ THEN 150 

140 BORDER 1:INK 0,1:INK 1,24:INK 2,13:INK 3,8 
150 np=l 
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160 

170 caractères redelinis 
180 

190 SYMBOL AFTER 220 

200 SYMBOL 244,28,28,9,62,92,28,20,20 

210 SYMBOL 245,24,24,255,126,60,60,36,36 

220 SYMBOL 246,126,129,189,165,165,189,129,126 

230 SYMBOL 247,31,17,31,4,4,60,12,60 

240 SYMBOL 248,0,255,84,84,84,84,255,0 

250 SYMBOL 249,255,195,195,195,195,195,195.255 

260 SYMBOL 250,56,68,148,164,169,146,68,56 

270 SYMBOL 251,28,34,73.149,37,41,34.28 

280 SYMBOL 252.56,68,146,169,164,148,68,56 

290 SYMBOL 253,28,34,41,37,149,73,34,28 

300 SYMBOL 221,255,0,255,0,255,0,255,0 

310 SYMBOL 222,255,0,63,0,15.0.3,0 

320 SYMBOL 223,0,0,3,0,15,0,63,0 

330 SYMBOL 224,255,0,252,0.240,0,192,0 

340 SYMBOL 225,0,0,192,0,240,0,252,0 

350 SYMBOL 226,0,1,3,1,1,1,0,0 

360 SYMBOL 227,0,119,85,117,85,119,0,0 

370 SYMBOL 228,0,119,69,117,21,119,0,0 

380 SYMBOL 229,0,119,21,117,69,119,0,0 

390 SYMBOL 230,0,119,85,117,21,119,0,0 

400 SYMBOL 231,0,119,69,117,85,119,0,0 

410 SYMBOL 232,0,119,21,117,21,119,0,0 

420 SYMBOL 233,255,255,192,255,255,3,255,255 

430 60SUB 4310ÎREH instructions 

440 CLSjPEN 1 

450 LOCATE 1,10:PRINT "Le niveau de difficulté choi5ill,2 

460 LOCATE 1,12!PRINT “detemine le nosibre de coffres(5,4 

470 LOCATE 1,14!PRINT " qui contiendront une clef 

480 LOCATE l.lBîINPUT “ Quel est votre choix";nidi 

490 IF nidi=l OR nidi=2 OR nidi=3 THEN 500 ELSE 480 

500 GOSUB 5390 

510 0RI6IN 0,0!CLS 

520 HINDOM 11,1,25,1,25 

530 WINDOW 12,27,27,15,25 

540 HINDOU #3,27,40,4,7 

550 WINDOH #4,27,40,1,3 

560 HINDOH #5,27,40,9,14 

570 HINDOH #7,29,39,15,24 


f 


5B0 DIM L$(5);DII1 FX(5)!DII1 FY(5) 

590 DIM co!(73):DIM si!(73) 

600 DEGîFOR 1=0 TO 72 
610 co!{i)=C0S(5*i) 

620 5i!(i)=SIN(5*i) 

630 NEXT i 

640 INK O,0îB0RDER OsPAPER 0 

650 IF R$=''H“ THEN 670 

660 INK 3,3:INK 1,9;G0T0 680 

670 INK 3,9:INK 1,24 

680 PAPER #4,3;CLS I4:PEN 1:L0CAT£ M,2,2:PRINT i4,CHRI(250);CHRI(251);"H 
ESSABES“;CHRi(252);CHR$(253) 

690 PAPER #3,3:CLS i3;PRINT»3:PRINT 13,“ VEUILLEZ PATIENTER" 

700 xx=2!vv=2:xxp=2:vvo=2;Fois=Û:etsor=INT(10*RND+l) 

710 RAND0NI2E TIME:n=INT(10*RND+l) 

720 ' 

730 '** génération labyrinthes ** 

740 

750 DIM R(5;6,6);DIH S(2,7,7);RAND0MIZE TIME 

760 FOR ffl=l TO 5 

770 FOR 1=0 TO 5 

700 FOR j=0 TO 5 

790 R(ffl,i,i)=INT(10»RND+l) 

BOO NEXT j:NEXT iiNEXT a 

810 FOR «=1 TO 2 

820 FOR 1=0 TO 6 

830 FOR j=0 TO 6 

840 S(ra,i,j)=INT(10»RND+l) 

850 IF S(œ,0,j)<5 THEN 840 
860 NEXT j;NEXT iîNEXT * 

870 

880 coordonnées escaliers ** 

890 

900 DIM EX(15):DIH EY{15):RAND0MIZE TIME 
910 FOR 1=1 TO 15 

920 EX(1)=2»(INT(10*RND+2));EY(11=2*(INT(lO*RND+2)) 

930 FOR j=0 TO i-l:IF ABS{EX(i)-EX(j))<3 AND ABS(EY{i)-EY(j))<3 THEN 920 
940 NEXT j 
950 NEXT 1 
960 

970 '♦♦♦ coordonnées cofTre 
980 
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990 DIM cox(I0)îDIM cov(lO):RANDai1IZE TIME 
JOOO FOR i=l TO 10 

1010 cox(i)=2MINT(12*RND+l))!COv(i)=2*(rNT(12*RN0+l)) 

1020 IF coxli)=4 AND CDy(i)=2 THEN 1010 

1030 FOR j=l TO 15 

1040 IF CDy(i)<)EY(j) THEN 1060 

1050 IF CDx{i)=£){(jl OR cox(i)=EX(j)+2 THEN 1010 

1060 NEXT j:NEXT i 

1070 GOSUB 3720:REH *** coordonnées lettre code 
1080 DIM cIe(10);F0R i=l TO 6-nidi 
1090 j=INT(10»RND+l) 

1100 IF cle(j)=0 THEN clelj)=l ELSE 1090 
1110 NEXT 
1120 CLS #3 

1130 PAPER #5,0:015 #5:PEN 1:F0R i=l TO 5:L0CATE #5,l,i:PRINT #5,CHR$(221 
):LOCATE l5,14,i;PRINT I5,CHR$(221)!NEXT 

1140 LOCATE #5,2,1;PRINT 15,'RECORD!“iLDCATE #5,2,3!PRINT #5,“TEMPS:“îLOC 
ATE #5,2,5iPRINT 15,"CLEFS:“ 

1150 LOCATE 15,9,1:1F rBCDrd=0 THEN PRINTiS,"-“ ELSE PRINTI5,USIN6"## 

l##'':record 

1160 

1170 choix couleurs 
1180 

1190 CLSI3:CLS #l!lF RI^-'M" THEN 1370 
1200 cn=n MOD 4 

1210 ck=-13*lcn=0)-9»(cn=l)-l0#(cn=2)-l2>(cn=3) 

1220 BORDER ck:INK 0,ck 

1230 ON n GOTO 1240.1250,1260,1270,1280,1290,1300,1310,1320.1330 

1240 INK 1,0:INK 2,4:INK 3,13:G0T0 1370 

1250 INK I,0:INK 2,4!lNK 3,13:G0Î0 1370 

1260 INK 1,0!INK 2,4!lNK 3,15:G0T0 1370 

1270 INK 1,0:INK 2,4:INK 3,16:G0T0 1370 

1280 INK 1,3:INK 2,l!lNK 3,0:G0T0 1370 

1290 INK 1,3:INK 2,0:INK 3,12:G0T0 1370 

1300 INK 1,3:INK 2,0:INK 3,9:60T0 1370 

1310 INK l,l!lNK 2,4:INK 3,11:60TO 1370 

1320 INK 1,1:INK 2,4!lNK 3,13:60T0 1370 

1330 INK IjlîINK 2,12:INK 3,4:G0T0 1370 

1340 

1350 choix du code ** 

1360 
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1370 RANDOmZE TI!1£!z=INTi5û*RND)îRESTORE 6120 
1380 FOR l=-4 TD SMz-DiREAI) viNEXT i 
1390 READ ül,u2.'j3,ü4,a5 

1400 CDdel=CHR$(ul)+CHRI(u2)+CHR$(u3)+CHRI(u4}+CHR$(u5) 

1410 CDt!e$=LOWER$(code$) 

1420 FOR L=1 10 5 !LI(l)=MIO$(cocfBS.L,i) 5 NE)(T L 
1430 xx=xx+2 

1440 indicateur d'etaoe *** 

1450 FOR b=l TO lOiLOCAÎE IZ.I.biPRINT #2.CHRI(249 )îNE):T b 
1460 LOCATE #2.1,ll-n{i!PRINT *2,CHfi$i24<î) 

1470 LOCATE jl2,l,ll-n:PRINT #2.CHR$(143) 

1480 np=n 
1490 

1500 horloge **♦ 

1510 

1520 DIiPEN 3}PAPER ll7,2îCLS #7;L0CArE l*7,5,lîPRIN! #7,CHRM226);CHRII227 
lîLOCATE #7,1,3!PRINT #7.CHR$(226)!CHRI(228):LOCATE #?,10.3;PR1NT I7.CHR$ 
(232) 

1530 LOCATE I17,1,8jPRINT i7,CHR${226)!CHR$(229 )îLOCATE #7,10,BiPRINT #7.C 
HR${231):L0CATE #7,6.10!PRINT 4?.CHRI(230) 

1540 QRIGÎN 536,96 

1550 MOVE 62*coH0).62*£i!(0)îF 0R iM TO 72 îl'RAW 62*co1 ü).624si! (i) îNEXT 
i 

1560 I10VE 52*CQi(ô),52^fçi!(0)!F0R i=l TO 72:9RAW 52^-:Gi(i).52*si!(i)jN£XT 
i 

1570 FOR t=30 TO 330 STEP 6 O 1 MOVE 52^C0S(tl.52^SIN(t)sDRAW 62*C0Sit),62^5 

IN(t):NEXT tiORIGIN O.OîEI 

1580 

1590 '♦ construction labyrinthe ♦ 

1600 

1610 CLS #1 

1620 DIîFOR i=0 TO B STEP 2îM0VE i,0;DRAWR 0,39 BjM 0VE 398-i.O sDRAWR 0,398 

;MOVE 0,i!DRAWR 39B.0!«0VE 0.398-i;DRAWR 398.0:NE):T;EI 

1630 PEN lîFOR i=3 TO 23 STEP 2 

1640 FOR j=3 TQ 23 STEP 2 

1650 LOCATE i.jîPRINT CHRI{144) 

1660 NE.U jiNEXT i 

1670 k=-{n=l OR n=6)-2*(n=2 OR n=7)“3>(n=3 OR n=8)“4»(n=4 OR n=9i”5^^(n=5 
OR n=10) 

16B0 FOR i=0 TO 5 
1690 FOR j=0 TO 5 
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1700 x=16*(22-4H)+7 
1710 y=16M22-4M)+7 

1720 ON R{k,i,j) GOSUB 2920,2930,2940,2950,2960,2970,2980,2990,3000,3010 
1730 NEXT j5NEXT i 
1740 k=-(n>0)-(n>5) 

1750 FOR i=0 TO 6 
1760 FOR j=0 TQ 6 
1770 x=16+(24-4*i)+7 
1780 v=16*(24-4*j)+7 

1790 ON S(k,i,j) GOSUB 2920,2930,2940,2950,2960,2970,2980,2990,3000,3010 
1800 NEXT jîNEXT i 

1810 ON no GOSUB 3410,3420,3430,3440,3450,3460,3470,3480,3490,3500 
1820 GOSUB 3510 

1830 PEN IsLOCATE coxin),ci}vin):PRINT CHRI(246) 

1840 PEN 3;F0R j=l TO SjLOCATE codexln,jJ,codBv(n,.i):PRINT CHR$ilè4)îNEXT 
J 

1850 IF n=etsor THEN fois=Toi5+l ELSE 1910 

1860 IF fois=l THEN GOSUB 3970 

1870 PEN lîLOCATE 11,XEor,vsorîPRINr ll,CHR$(233) 

1860 

1890 coordonnées fantômes 
1900 

1910 RANDOHIZE TIME 

1920 FX(l)=2»INT(9»RND+4hFY(l)=2 

1930 IF FX(l)=CQX(n) THEN 1920 

1940 FOR j=l TO 5;IF FX(l)=codBx(n,j) THEN 1920 ELBE NEXT j 
1950 FX(2)=2!FY(2)=2*INT(10tRND+2) 

1960 IF FY(2)=coy(n) THEN 1950 

1970 FOR j=l T0.5:IF FY(2)=codey(n,j) THEN 1950 ELSE NEXT j 
1980 FX(3)=24îFY(3)=2*INT{10»RND+2) 

1990 IF FY(3)=cov(n) THEN 1980 

2000 FOR j=l TO 5;IF FY(3)=co[ley(n,j) THEN 1980 ELSE NEXT j 
2010 FX(4)=2nNTI12*RND+l)îFY(4)=24 
2020 IF FX(4)=cox(n) THEN 2010 

2030 FOR j=l TO SîIF FX(4)=codex(n,j) THEN 2010 ELSE NEXT j 

2040 FX(5)=2^^INT(12*RND+1);FY(5)=24 

2050 IF FX(5)=cox(n) OR FX(5)=FX(4) THEN 2040 

2060 FOR 1-1 TO 5:IF FX(5)=codex(n,j) THEN 2040 ELSE NEXT j 

2070 PEN 2!F0R k=l TO SîLOCATE FX(k),FY(k)iPRINT CHR$I245)îNEXT k 

2080 pause=l!E\/ERY 50,2 GOSUB 2830 

2090 EVERY 100,1 GOSUB 2530 
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2100 50=INT(TIME/30Û)!te=0!pausB=0îtepeto=Û 
2110 

2120 DIîPEN 1 

2130 LDCATE xxp,vyp!PRrNT CHRI(12B) 

2140 SOUND 1,150»5,5 

2150 LDCATE xx,yy!PRINT CHRI(244) 

2160 xxp=xx:yyp=yy!EI 

2170 xc=16*(xx-li+7îyc=16*(25-yy)*7 

2180 IF pause=l THEN n=INT(lO»RND+l)îxxsxx-2!teBp5*tefflP5+l8Û!LOCATE 15,B, 

3JPRINT 15,USINE "IIMI";temps:GOTO 1190 

2190 c$=INKEY$;IF cl='"’ THEN 2190 

2200 IF c$="P" OR cl-“p* THEN GOSUB 3570 

2210 c=ASC(c$) 

2220 IF c<24Û OR c>243 THEN 2190 
2230 ci:=c-239 

2240 t=TEST(xc+l6»(cc=3)-16*(cc=4),yc-16*(cc=l)+16#lcc=2)) 

2250 IF t=l THEN 2190 

2260 xt=xc-8*(cc=l/-B*(cc=2)+24*(cc=3)-40*(cc=4/ 

2270 tl=TESTIxt,yc-40*(cc=l)+24»(cc=2)-B*(cc=3)-B*l!:c=4)) 

22B0 t2=TEST(xt,vc-38»lcc=I)+26*(cc=2/-6*lcc=3î-6Mcc=4)) 

2290 t3=TEST(xt,vc-36Hcî:=l)+28*(cc=2)-4»(cc=3)-4Mcc=4)/ 

2300 tt=tl+2»t2+3H3 

2310 IF tt=2 THEN 3050 

2320 IF tt=5 THEN GOTO 4060 

2330 IF tt?18 THEN GOTO 4170 

2340 IF tt=6 THEN GOTO 2190 

2350 IF tt=3 AND nbcl,p=3 THEN GOTO 5460 

2360 IF tt=3 AND nbcieU THEN GOTO 2120 

2370 FOR i=0 TO 4 STEP 2 

2380 t4=TEST(xc-(2+i)Mcc=I)-(2+i)Mcc=2)*l26+i)*(cc=3)-(32+i)#(cc=4),yc- 
36*(cc=l)+28Mcc=2)-4Mcc=3)‘4*lcc=4)) 

2390 IF t4>0 THEN 2410 
2400 NEXT i:BOTO 2460 
2410 xxs=xx-2*(cc=4)+2»(cc=3) 

2420 yys=yy+2*(cc=l)-2»(cc=2) 

2430 FOR i=I TO 5 

2440 IF (codex(n,i)=xxs) AND (codev(n,i)syy5) THEN 2480 
2450 NEXT i 

2460 vy=yy+2»(cc=l)-2»(cc=2) 

2470 xx=xx+2»(cc=3)-2*(cc=4):G0T0 2120 
2480 PEN 2:L0CATE xx5,yys:PRINT HIDI(code$,i,1) 

2490 GOTO 2120 
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2500 

2510 '*♦ deplaceaBfit fantoie *♦ 

2520 

2530 DIîIF pau5e=l OR pâU5e=2 THEN 2790 
2540 FOR 1=1 TO 5!A=INT(4*RND+1) 

2550 xf=16*(FX(I)-l)+7!vf=16*{25-FY(I))+7 

2560 PEN 2!0N A GOTO 2570,2610,2650,2690 

2570 IF TEST(xf“20,vf)=l THEN 2780 

2500 IF TEST(xf-24,yf+4)=l AND TEST(xf-24,yf+6}=0 THEN 2730 

2590 IF TEST(xf-24,vf+6)+TEST{xf-26,yf+4)+TEST(x^28,vf+4)+TEST(xf-30.vf+ 

4)>0 THEN 2780 

2600 LOCATE FX(I),FY(I) jPRINT CHR$(128)!FX{I)=FX(I)-2jS0UND 1,602,5,SîLO 

CATE FX(I),FY(I);PRINT CHR$(245).‘GOTO 2780 

2610 IF TEST{xf+20,yf)=l THEN 2780 

2620 IF TEST(xf+40,yT+4)=l AND TEST(xT+40,vf+6)=0 THEN 2730 

2630 IF TEST(xT+40,yf+6)+TEST(xf+32,yF+4)+TEST(xf*34,yf+4)+TEST(xH36,yf+ 

4)>0 THEN 2780 

2640 LOCATE FX(I),FY(I) fPRINT CHft$(128);FX(I)=FX(I)+2!S0UND 1,602,5,5:10 

CATE FX(I),FY(I):PRINT CHR$(245)!G0T0 2780 

2650 IF TEST(xF,vF+20)=l THEN 2780 

2660 IF TEST(xT+8,vf+36)=l AND TESTIxf+8,vF+38)=Û THEN 2730 

2670 IF TEST(xF^8,yf+38)+TEST{xf+2,yf+36)+TEST(xf+4,vT+36)+TEST(xf+6,yf+3 

6)>0 THEN 2780 

2680 LOCATE FX(I),FY(I) sPRINT CHRI{128)!FY(I)=FY(I)"2:S0UND 1,602,5,5;L0 

CATE FX(I),FY<I):PRINT CHR$(245);G0T0 2780 

2690 IF TEST(xF,yf-20i=l THEN 2780 

2700 IF TEST(xf+8,yf-2B)=l AND TEST(xf+8,vf-26)=0 THEN 2730 

2710 IF TESTIxf*8,vf-26)+TEST(xf+2,vF-28)+TEST(xF+4,vf-2B)+TEST(;<F+6,vf-2 

8)>0 THEN 2780 

2720 LOCATE FX(I/,FY(D sPRINT CHRI(128);FY(I}=FY(IÎ+2;S0UND 1,602,5,5;LQ 
CATE FX(I),FY(I):PRINT CHR$(245)iGOTO 2780 
2730 IF nbcle=0 THEN 2780 

2740 LOCATE #5,nbcle+0,5:PRINT I5,CHR$(128)înbcle=nbcle-i 
2750 60SUB 5BOO:CLS I3!PRINT 13,"1 de de luoins" 

2760 ce=INT(10»RND+l) 

2770 IF de(ce)=l THEN 2760 ELBE de{ce)=l 
2780 NEXT I 
2790 EhRETURN 
2800 

2810 Rouvesent horloge 

2820 '»****»*4»««*##*»*****« 

2830 IF pau5e=l THEN 2870 
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2840 DEBîte=ts+2 
2850 IF te<360 THEN 2870 
2860 pause=lJte=0 

2870 hOVE 536,96;DRAWR 52*SIN(teJ,52*C0S(te) 

2880 RETURN 
2890 

2900 '•» construction labyrinthe ♦ 

2910 '444444«4444444«f««*44444444 

2920 tiOVE x,v:DRAHR 32,05flOVE x,y+2!DRAWR 32.0;RETURN 

2930 HOVE x.sîORAWR 32.0îM0VE x,v42:DRA«R 32,0;M0VE x.vsDRAWR -32,0!ll0VE 

x,y+2rDRA«R -32.0:RETURN 

2940 MOVE x.vjORAWR 32,0!«0VE x,v 42:0RA«R 32.0iMaVE x.vîDRAWR 0,32!M0V£ x 
+2 ,v!DRAWR 0.32!RETURN 

2950 MOVE ;<,v!DRAWR 32,0!M0VE x,v+2îDRAWR 32,0!H0VE x.vîDRAWR 0,-32!M0VE 
x+2.y:DRAI«IR 0,-32!RETURN 

2960 HOVE x.vîORAWR -32,0îM0V£ x,v+2:DRAWR -32,0îRETURN 
2970 HOVE x.vîDRAWR -32.0:f1QVE x,y+ 2!DRAWR -32,0:f1DVE x,yîDRAWR 0.32:M0VE 
x+2,y;DRAWR 0,32 jRETURN 

2980 MOVE x,y:DRAHR -32,0îM0VE x,v+2îDRA«R -32,0:«0V£ x,vjDRAWR 0,-32:1100 
E x+2,y:DRA«R 0,-32;RETURN 

2990 HOVE x,y:DRAWR 0,32:I10VE x+2,y;0RAMR 0,32:R£TURN 

3000 liOVE x,y:DRAWR 0,32:I10VE x+2,y:DRAMR 0,32:M0VE x,vîDRAWR 0,-32:M0VE 

x+2,y:DRAWR (),-32;RETURN 

3010 MOVE x,y:DRAWR 0,-32:M0V£ x+2,y:DRA«R 0,-32:R£TURN 
3020 ‘444«4«44*««««««*«««« 

3030 '444 saut d'etage 4«« 

3040 '*4444444*«4««»44«44* 

3050 vv-vv+24|cc=l}-24(cc=2) 

3060 xx=xx+24(cc=3)-24(cc=4i 

3070 p3use=î;te=0;5l=INT(TIME/300)!tenDS=te(»DS4£l-s04teDeto!L0CAr£ #5,8,3 
:PRINT I5,ÜSIN6 temps 


3080 

ON 

n 

GOTO 31)90,; 

5120,3150 

CD 

,3210,3240,3270,3300,3330,3360 

3090 

IF 

XX 

=E):(1) 

AND 

vv=Ey':i) 

THEN 

n=2!60TD 

1170 

3100 

IF 

XX 

=E."I2; 

ANC 

vv=EY(2/ 

THEN 

n=3:60T0 

1170 

3110 

IF 

XX 

=EX(3) 

AND 

yv=EY(3) 

THEN 

n=4!G0T0 

1170 

3120 

IF 

XX 

=£){(1? 

AND 

vy=EY(l) 

THEN 

n=l:GOTQ 

1170 

3130 

IF 

XX 

=E.'((4) 

AND 

vy=EY(4) 

THEN 

n=3;G0T0 

1170 

3140 

IF 

XX 

=E7(5) 

AND 

vv=EY(5) 

THEN 

n=5:G0T0 

1170 

3150 

IF 

XX 

=EX(6) 

AND 

vv=EY(6) 

THEN 

n=4;G0TD 

1170 

3160 

IF 

XX 

=E){(2) 

AND 

vy=Ey(2) 

THEN 

n-ljGOTO 

1170 

3170 

IF 

XX 

=E)((4) 

AND 

Yy=EY(4) 

THEN 

n=2;G0TQ 

1170 
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3180 IF xx=E/.(6) AND vy=£Y(6) THEN n=3j60T0 1170 
3190 IF xx=E){(8) AND yY=EY(B) THEN n=10iG0T0 1170 
3200 IF xx=E)({3) AND yy=£Y(3) THEN n=l:6QT0 1170 

3210 IF xx=E)((7) AND yy=EY(7) THEN n=6;6QT0 1170 

3220 IF xx=E)((ll) AND yy=EY{ll) THEN n=8;60T0 1170 
3230 IF xx=E)((5) AND yy=EY(5) THEN n=2:B0T0 1170 

3240 IF xx=E)({9) AND vy=£Y(9) THEN n=8!B0T0 1170 

3250 IF xx=E!((?} AND yv=EY(7> THEN n=5;B0TQ 1170 

3260 IF xx=E)((l3) AND vv=£Y{l3) THEN n=9!G0T0 1170 
3270 IF xx=E):(10) AND vv=EY(10) THEN n=10:GQT0 1170 
3280 IF xx=EX(l4) AND vv=EY(14) THEN n^BîBOTO 1170 

3290 IF xx=EX(15) AND vv=EY(15) THEN n=9î60TO 1170 

3300 IF xx=£X(9) AND vv=EY(9) THEN n=6î6QTQ 1170 
3310 IF xx=EX(ll) AND vy=EY(11) THEN n=5!B0T0 1170 

3320 IF xx=EX{14) AND yv=EY(14) THEN n=7!OOTO 1170 

3330 IF xx=EX(12) AND YY=EYil2) THEN nMOsBOTO 1170 
3340 IF xx=EX(13) AND vv=EY(13) THEN n^OsBOTO 1170 

3350 IF xx=EX(15) AND yy=EY(15) THEN n=?!BOTO IHO 

3360 IF xx=£X(8) AND vy=EY(8) THEN n=4!60T0 1170 
3370 IF xx=EX(10) AND yy=EY(10J THEN n=7!60T0 1170 

3380 IF xx=EX(l2; AND vv=EY(l2) THEN n=9!60TQ 1170 

3390 GOTO 1170 
3400 

3410 Pl=EX{l)!P2=£Yll)}P3=EXI2);P4=EY(2)!P5=£Xl3)jP6=EYl3)!RETURN 
3420 P1=EX(1):P2=EY(1);P3=EX(4);P4=EY(4)!P5=EX(5):P6=EY(5):RETURN 
3430 Pl=EX(6)!P2=EY(6)!P3=EX(4)!P4=EY(4);?5=£X(2)jP6=£Y{2)jRETURN 
3440 Pl=EX(6):P2=EY(6>îP3=EX(8)!P4=EY(8):P5=EX(3)!P6=EY(3)!RETURN 
3450 P1=£X(7)!P2=£Y(7 )jP3=£X(11)!P4=£YI11)îP5=EX(5):P6=EY(5):R£TURN 
3460 P1=EX(?) ;P2=EY(7)!P3=EX(13):P4=EY(13):P5=EX(9)!P6=EY(9);RETURN 
3470 P1=:EX(10)!P2=EY(10)!P3=£X(14):P4=EYI14):P5=EX(15)!P6=£Y{15)iRETURN 
3480 P1=EX(11)!P2=EY(11);P3=EX(14);P4=EY(14)!P5=EX(9)!P6=EY(9):RETURN 
3490 P1=£X(12)!P2=EYI12);P3=EX(13);P4=£YI13)!P5=EX(15)!P6=EY(15)JRETURN 
3500 P1=EX(12)!P2=EY(12)!P3=EX(10)!P4=EY(10)!P5=EX(8)!P6=EY(8):RETURN 
3510 PEN IjLOCATE P1,P2{PRINT CHR$(248)!CHRI(128)îLOCATE P3.P4!PRINT CHR$ 
(24B)!CHR$(12B)îL0CATE PS.POîPRINT CHR$(248)!CHR$(128) 

3520 DIjHOVE 16^>P1+7,16»(26-P2)+7îDRAWR -32,05DRAlflR 0,-32:DRAWR 32,0îl10VE 
16*P3+?,16^{26-P4)+7!DRAWR -32.0!DRAHR 0,-32:DRAWR 32,0!H0VE 16*P5+7.16^ 
(26-P6)+7!DRAWR -32,ÛjDfiAWR 0,>32!DRAWR 32.0 

3530 MOVE 16»P1+8,16+(26-P2)>8!DRAWR -31,0îDRAWR 0,-32;DRAWR 31.Ûîf10VE 16 
*P3+8,16*(26-P4)+8!DRAWR -31,O:0RAWR 0,-32!DRAWfi 31,0îH0V£ 16#P5+8,16M26 
-P6)+8!DRAWR -31,0!DRAWR 0.-32;DRA«R 31.0!El!RETURN 
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•3540 '*********^***** 

3550 ■♦♦♦ perçage 
5560 ♦♦♦♦•!>♦•»♦♦ 

3570 GOSUB 5760:CLS#3;PRINT #3," indiquer U direction de oercaqe" 

35B0 cl=INK.EY$!lF c$="'' THEN 3580 

3590 c= ASC(c$)!lF r<240 OR c>243 THEN 3580 

3600 IF TEST lxc+20«(c=242)-20Mc=243),vc+20*(c=241)-20*lc=24Û))=l THEN 3 
680 

3610 tepe=INT(16*RND+5):te=te+2»tBpeîtepeto=tep8to+tepe 

3620 GOSUB 5760:CLSil3!PRINTI3,* duree de perçage; ";tepe;''5ec. 

3630 ON c-239 GOTO 3640,3650,3660,3670 

3640 LOCATE xx,yy-l:PRINT CHR$(l28)îRETURN 

3650 LOCATE xx,yy+l;PRINT CHR$(128);RETÜRN 

3660 LOCATE xx-l,yy;PRINT CHR$(128):RETURN 

3670 LOCATE xx+l,yv;PRINT CHR$(128);R£TURN 

3680 GOSUB 5760:CLS#3;PRINT#3,* perçage iinpo55ible'':RETURN 

3690 

3700 '♦ coordonnées lettre code ♦ 

3710 

3720 DIN codex(10,5);DIl1 codev(10,5) 

3730 FOR iM TO 10 
3740 FOR j=l TO 5 

3750 codex(i,J;=2♦(INT(12^^fiND+l));codBV(i,j)= 2*(INT(12*RND+1)) 

3760 IF codex(i,j)=4 AND codev(i,j)=2 THEN 3750 
3770 FOR k=0 TO j-1 

3700 IF codex(i,j;=codex(i,l() AND codev(i,j)=cDdevii,k) THEN 3750 
3790 IF codex(i,j)=cox{i) AND codev(i,j)=coyü) THEN 3750 
3800 ON i GOTO 3810,3820,3830,3840,3850,3860,3870,3880,3890,3900 
3810 IF codev(i,j)=EY(l) OR codey{i,j)=EY(2) OR codey(i,j)=EY(3) THEN 375 
0 ELSE 3910 

3820 IF codev(i,j)=EY(l) OR codev(i,j)=£Y{4) OR codey(i,j)=EY(5) THEN 375 
0 ELSE 3910 

3830 IF codeY(i,j)=EYI6) OR codeyd,j)=EY(2) OR codevd,j)=EY(4) THEN 375 
0 ELSE 3910 

3840 IF codey(i,j)=EY(6) OR codey(i,j)=EYI8) OR codeyli,j)=EY(3) THEN 375 
0 ELSE 3910 

3850 IF codey(i,j)=EY(7) OR codeyli, j)=EY(n) OR codev(i,j)=EY(5) THEN 37 
50 ELSE 3910 

3860 IF codev(i,j)=EY{9) OR codevii,j)s£Y(7) OR codevii,j)=EY{13) THEN 37 
50 ELSE 3910 

3870 IF codey(i,j)=EY(10) OR codev{i,j)=£Y(14) OR codev(i,j)-EY(15) THEN 
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3750 ELSE 3910 

3880 IF codev(i,j)=EY(9) OR codevli,jl=EY(14/ OR codevii,j)=EY(n) THEN 3 
750 ELSE 3910 

3890 IF codevii,J/=EY(12) OR codevii,j)=EY{l3/ OR codevii,j)=EYil5) THEN 
3750 ELSE 3910 

3900 IF codevii,jl^EYiB) OR codevii,j)=EY110) OR codevii,j;=EYil2) THEN 3 

750 ELSE 3910 

3910 NEH k 

3920 NEXT j 

3930 NEXT iîRETURN 

3950 '♦♦♦ porte de sortie *** 

3960 '♦4444#4444444444»44#444 

3970 xsar=2MNTi 10<RND+2) :vsor=2*INT{10*RND+2) 

3980 IF xsor=coxiet 5 or) AND y50r=C0Y{et50r) THEN 3970 
3990 FOR i=l TO 5 

4000 IF xsor=cadexietsor,i) AND vsor=codev(etsor,i) THEN 3970 ELSE NEXT i 

4010 IF (x 5 or=Pl AND y 5 or=P 2 } OR ix 5 or=Pl +2 AND y 5 or=P 2 ) THEN 3970 

4020 IF (xsar=P3 AND ysor=P4) DR ixsor=P3+2 AND y 5 or=P 4 ) THEN 3970 

4030 IF {x 5 or=P 5 AND y 5 or=P 6 ) OR iX 5 or=P 5+2 AND v 5 or=Pô) THEN 3970 

4040 RETURN 

4050 '444*44444444444*44444444 

4060 ‘H# ouverture coffre 

4070 '44444*444444444444444444 

4080 pause=2!G0SUB 5760:CLS l♦3!INPUTi3, "Code du coffre ”\z$ 

4090 cJ=LONER$ic$)!lF c$=codel THEN 4110 

4100 CLB#3jPRINT 13,"Le code n’est pas bon*':oau5e=Oî80TO 2120 

4110 IF cle(n)=l THEN 4140 

4120 GOSUB 5770!CLS #3;PRINT#3,'‘ BRAVO uais ii n’v a pas de de." 
4130 pau 5 B=OjGOTO 2120 

4140 PEN 3JL0CATE coxin),cov{n)!PRINT CHR$i247) 

4150 GOSUB 5770:CLS il3!PEN l!pRINTI3," BRAVO, prenez la de" 

4160 '*44444444444444444 

4170 '444 prise clef ♦♦♦ 

4100 '*4*4**444*4444*444 

4190 C$=INKEY$!IF c$="" THEN 4190 
4200 c=ASCic$)!lF c<240 OR c>243 THEN 4190 
4210 xd=xx+2*(c=242)-2dc=243) 

4220 yd=yy+2*(c=240)-24(c=241) 

4230 IF xcl=coxin) AND ycl=coy{n) THEN 4240 ELSE 4290 

4240 nbcle=nbdB+lide{n)=0 

4250 IF nbded THEN LOCATE #5,9,5!PRINT #5,CHR$i247) 


183 


4260 IF nt 3 cle =2 ThEN LQCAiE |i5.lO,5!PRIN’ i5,CHR$(247) 

4270 IF nbLle=3 THEN LOCATE l5.n.5:FRINT i5.CHR$(247) 

4230 PEN iîLOCATE coxi.-Ji .covin-.'Jr'RlNT CHRI(246) 

4290 pau 5 e= 0 !SDI 0 2120 
4300 '4*4*<HHHf4*4***4*444* 

4310 instructions ♦♦♦ 

4320 

4?30 IF RI='^C'' THEN INK O.OjINK 1,9jINK 2,1I:B0RDER 0 

4340 PAPER OjFEN 2:CL5:F0?. i=3 TD 37IL0CATE i.liPRINT CHR$(22l) ! LOCATE i. 

^•PRINT CHR$i221};NE7T j 

4350 FOR 1=2 g.-LOCATE 3,i:PRINT CHRI(221 )!LOCATE 37.iîPRINT CHR$l221)j 
NEH i 

4360 READ 31 IF 3=20 THEN 44!0 
4370 IF a-., 10 THEN 43B0 ElSE 43^0 
4380 Iia=3îcnir3jGOTO 4360 
43^’0 cd1=cd1*1 

4400 LOCATE col(liajPRINT OHRKaliSOTO 4360 
4410 lïINDDW I16,1.40.11.25!PAPER lo.OiCLS IcsPEN 3 
4420 FOR 1=1 TO l4îPRlNT l 6 îN£.n 
4430 BOSUB 5520 

4440 PRI.NT # 6 ,“voulez-vous les instructions ? (0/N)'‘ 

4450 14=üPPER$(INKEV$}:IF I$=''N“ THEN RETURN ELSE IF H-O^O" THEN 4450 
4460 CL3 # 6 :PRINT # 6 ;PRINT #6:T^=“INSTRUCTIQNS‘'îG0SüB 5290 
4470 T$=‘'Poür faire defiler les instructions,“:GOSUB 5280 
4480 TI='aopuv92 sur une toucne quelconque." îGQSUB 5290 
4490 CALL ^.BBOo 

4500 Tl=''0O'js vous trouvez dans un iaovrinthe de*;30SUB 5290 
4510 Tf=“10 etaoes et vous oevez en sortir le‘';SOSUB 5290 
4520 Tf=‘'Dlus raoideinent possible.“iGOSUB 5290 
4530 CALL .3.5B06 

4540 Tl=''! 1 ais, ocur oouvoir sortir,ii vou 5 ‘';GQ 3 UB 5280 
4550 ^l=“fauora etre en possession des 3 clef 5 ”! 6 QSüB 5290 
4560 Tî=‘'qui vous oernettront de d 9 verrGuiU 9 r''îG 0 SUB 5290 
4570 T$="igs 3 caflenas qui condamnent la porte":GD5UB 5290 
4580 T|=“de sortie.“îGOSl'B 5290 
45î»Ô CALL ?<BB06 

4600 TI=''L 9 s clefs sont enfermees dans 5, 4 ou"!G0SU6 5280 
4610 T$='' 5 Bule(i!er!t 3 des 10 coffres que vous^iGOSUB 5290 
4620 T 4 =''trouv 9 rez dans le Iaovrinthe.":G0SUB 5290 
4630 CALL Î(BB06 

4640 TI=“L ouverture d'un coffre nécessite ia“!60SU6 52B0 
4650 Tf=''connâissance d un cooe constitue oe 5“!60SUB 5290 
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4660 IMMettres foriBant un ncm d'aniiHâl.''j80SUB 5290 
4670 CALL &BB06 

4680 TI="Le5 lettres du code sont dissiflule9s";G0SUB 5280 
4690 T$='‘a differents endroits de l'etage. ir'rSOSUB 5290 
4700 TI="pBut arriver qu'une lettre du code ne‘':G0SUB 5290 
4710 Tls-puisse pas etre obtenue.De toute façon,";B0SUB 5290 
4720 Tls^vous n'avez pas besoin de connaitre’';G0SUB 5290 
4730 T$="toutes les lettres du code pour essayer‘':S0SUB 5290 
4740 T$=''d'oüvrir un coffre.“:G0SUB 5290 
4750 CALL iBBOé 

4760 TI=''Les escaliers vous mèneront a un autre"!G0SUB 5280 
4770 T$=“etage, mais pas obligatoirement voisin,";G03UB 5290 
4780 î$=''yn escalier relie toujours les deux":G0SüB 5290 
4790 T$="fflefles etaoes. Un dessin a droite du'';B0SUB 5290 
4800 Tl=''iabvrinthe vous indiquera l'etaoe ou''jG0SUB 52'’0 
4810 T$="vou5 vous trouvez.'‘;G0BÜB 5290 
4820 CALL ?«B606 

4830 TI="Vcus n avez le droit de rester a un''!8QSU5 5280 
4840 Tl="me®e etaoe ou’un temps limite (180 sec)''.’GOSUB 5290 
4B50 T|s"Au bout de ce laps de temos, vous serez''.'GOSUB 5290 
4860 Ti="tran5f9r9 automatiouement a un autre''!60SUB 5290 
4870 Tl="etage. Aussi, surveillez l'horlooe." îGOSUB 5290 
4880 CALL îtBB06 

4890 TI=''Si vous etes coince, vous pouvez vous";80SUB 5280 
4900 T$=“en sortir en utilisant la touche <F‘>''!B0SUB 5290 
4910 Tl=''qui vous permet de percer une cloison."iGOSUB 5290 
4920 T$="Mais, attention, suivant la resi5tance'':G0SUB 5290 
4930 Tl="de la cloison, le temps necessaire au'‘;G0SUB 5290 
4940 T$=''perca 9 e peut etre plus ou moins long:"iBOSUB 5290 
4950 T$="de 5 a 20 secondes. Aussi, n'utilisez“!G0SUB 5290 
4960 Tl="cette possibilité qu'a bon escient.“iBOSUB 5290 
4970 CALL Î(BB06 

4900 TI="Tout cela serait très facile, s'il n'y":B0SUB 5280 
4990 T$=''avait pas des fantômes qui rodent efiGOSUB 5290 
50ûOJI=''qui ont la mauvaise habitude de vous‘'!S0SUB 5290 
5010 T$=“dBrobBr les clefs et d'aller les"!60SUB 5290 
5020 T$=''rBmettre dans un coffre. Bien qu ils"!GOSUB 5290 
5030 T$="ne vous poursuivent pas vraiment,”:GOSUB 5290 
5040 TI="i!)efiez-vous en cependant”:GOSUB 5290 
5050 CALL iBB06 

5060 T$="Pour vous déplacer utilisez les fléchés”:GOSUB 5280 
5070 PRINTI6;PRINHl6:PRINTi6,“ ’':CHR$(244):” : vous" 




5ÛB0 PRINTf6!PRINT#6,’‘ 
5090 PRINT#6:PRINTIâ/ 
5li)0 PRINT#6!PRINTI6," 
5110 PRINTIètPRINTIè," 
5120 PRINTI6!PRINTI6,'’ 
5130 PRINT#6!PRINTI6,'' 
5140 CALL &BB06 
5150 T$=''REI1ARBUES'':B0SÜB 


''jCHRIi245)î’ 
•':CHR$(246)5 " 
*îCHR<{ 247)!“ 
":CHR$(248)î’‘ 
'';CHRI(164)s" 
'‘!CHR$(233);" 

5280 




Iss fantômes" 
les coffres" 

Iss clefs" 
les escaliers" 

Iss lettres dy code' 
la sortie" 


5160 T$="Lâ forme des labyrinthes, les oositions“î60SLIB 5280 
5170 T4="de5 escaliers, du coffre, des lettres'rGOSUB 5290 
5180 T$="du code, de la porte de sortie, restent"îGOSUB 5290 
5190 T$="1 bs lemes au cours d'une partie, «ais*i50SUB 5290 
5200 TI="chânoent si vous en faites une autre."îGOSUB 5290 


5210 CALL BBÛé 


5220 T$="Lorsque vous arrivez a un nouvel etâQe,“î50SUB 5280 
5230 T$="Bt meffie si vous v etes oeja passe, un";S0SUB 5290 
5240 TJ="un nouveau code est affecte au coffre." îGOSüB 5290 
5250 T$=“BnNNE CHANCE"jS 0SUB 5280 
5260 CALL îiBBOo 
5270 CLSjRETüRN 


5280 PRINT #6 
5290 PRINT «ôsPRlNT 16 

5300 LOCATE i6,INT((40-LEN(Tli)/2;+l,25 jF 0R t=l TO LENITF;îPRINT i6,NID$( 
T$.t.l)::IF NID${T$.t.l)<>“ " THEN SOUND 1,284,3.5,0.0.1 
5310 FOR d=l TO 50:NEXT dîNEH tiRETURN 

5320 DATA 3.128.221,221,221,221.225.223.221.221.225,128,128.221.221.221.2 

21.225.128.120.221.221.221.221.221.221.128.223.221.221.221.221.225.128 
5330 DATA 4,128.128.221,221.221.221,221.221.221.221,128.128.128.128.128.2 

21.221.128.128.128.128.223.221.221.224.128.221.221.128.128.120.221.128 
5340 DATA 5.128.128.221,221.128,221,221.128,221.221,128,223,221,221.221.2 
21,221,128,128,128,223,221,221,224,128,128,221,221,221,221,221,224,120 
5350 DATA 6,128,128,221.221,128,221,221,128,221,221,128,221,128,128.128,2 

21.221.128.128.223.221.221.224.128.128.128.221.221.128.128.128.128.128 
5360 DATA 7,128,128,221,221,128,221,221,128,221,221,128,222,221,221,221,2 

24.222.221.128.221.221.221.221.221.221.128.222.221.221.221.221.221.128 
5370 DATA 9.221,221.221.221.221.221,221,221.71,46,77,65,78,75,79,87,83,75 
,73,45,49,57,56,53,20 

5380 

5390 nll="0ictor":hl=5555 
5400 n2$="«illià®":h2=6666 
5410 n3l="){ayier"îh3=7777 
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5420 n4$="Yvan^h4=B88B 
5430 n5l=“2oe“sh5=!00ÛÛ 
5440 RETÜRN 
5450 

5460 ■♦♦♦ fin ûs partie *** 

5470 

5480 pau5e=l 
5490 CLSilsCLSIl 

5500 sl=îNT(TIME/300; !teiiip«=tBfflpE+sl-sO+teoeto 

5510 IF teii!p5>=h5 THEN L0CATEil.l,10:PRINT#l."VDTRE SCORE EST TROP^RRINT 
Il:PRINTtl,"MAUVAIS POUR POUVOIR''!PRINÎI1 jPRINT# 1,"FIGURER AU PALHARES-sG 
DTO 5580 

5520 IF TEMPS<hl THEN L0CAT£#l,l,10!PRINT#l,“TOUTES MES FELICITATIONS;";? 
RINTI1;PRINTI1,"VQUS AVEZ BATTU LE REC0RD’':60T0 5540 
5530 IF TEMPS<h5 THEN PRINTIl,"BRAVO, BELLE PERF0RMANCE'';PRINTI1;PRINTI1, 
"QUI VOUS PERMET DE";PRINT#1;PRINT#1,"FIGURER AU PALMARES":GOTO 5540 
5540 INPUT "Quel est votre noffl‘';nl 

5550 IF tefflps<fil THEN n5$=n4$;n4$=n3l:n3$=n2l;n2l=nll:nll=n$ ELSE IF teap 
5<h2 THEN n5l=n4$:n4l=n3$;n3$=n2l:n2$=n$ ELSE IF te«!p5<h3 THEN iT5$=n4l:n4 
I=n3l;n3l=nl ELSE IF teaps<h4 THEN n5l=n4l;n4l=n$ ELSE IF te(iips<h5 THEN n 
5$=n$ 

5560 te«=tefflps 

5570 IF tea^hl THEN h5=h4:h4=M3;h3=h2;h2=hl;hl=tem ELBE IF tea^hZ THEN h5 
=h4;h4=h5;h3=h2;h2=te(R ELSE IF tefii<h3 THEN h5=h4;h4=h3;h3=te8i ElSE IF teir. 
<h4 THEN h5=h4;h4=tea flsE IF teffl<h5 THEN h5=teiii 
5580 CLSIl 

5590 FOR i=? TO 18;LQCATE ll,i,l:PRINT#l,CHR$(238)!L0CATE ll,i,7:PRINTI1, 
CHR$(238):NEXT 

5600 FOR i=2 TO 6;L0CATE #l,7,i;PRINTIl,CHR$l23Bi:LOCAT£ #l.IB,i:PRINÎ#l, 
CHR$(238);NEXT 

5610 LOCATE 11,11,3;PRINriI,"MAZE" 

5620 LOCATE 11,9.5;PRINTI1,"PALMARES" 

5630 LOCATE ll.3,ll;PRINT#l,"î- "!nll;LOCATE I1,16,11:PRINTI1,ÜSIN8 "llll 
l"!hl|:PRINTIl," se:." 

5640 LOCATE I1,3,13;PRINTI1,"2- ";n2$;L0CATE ll,16,13;PRINT#l,USIN6 •'llll 
l":h2;;PRINTIl," sec." 

5650 LOCATE I1,3,15;PRINTI1,"3- ";n3l;L0CATE #l,16,i5;PRINTIl,USlNG "llll 
l"|h3;:PRINTIl," sec." 

5660 LOCATE ll,3,17;PRINTIl,"4- "jn4$;L0CATE I1,16,17;PRINTI1,USIN6 "llll 
l";h4;!PRINTIl," sec." 

5670 LOCATE I1,3,19:PRINTI1,"5- ",*n5$;L0CATE I1,16,19;PRINTI1,USING "llll 
l";h5;:PRINTIl,* sec." 
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5680 60Sl‘B 5820 

5690 LOCATE ll,l,22:PRINîll,''Voul9Z-vous taire une autre partie (0/N) 

5700 KM'JPPERIdNKEYIîJlF K$=-N" THEN NEW ELSE IF THEN 5700 

5710 ERASE R,S,E.\.Ey.cQx,cov,cle,codex.co(Jev 
5720 te!5pï=0:nPci5=0!r5C9rîJ=hlîCL5i'30T9 6BO 
5730 "*********f******* 


5740 BRÜITAGE5 
5750 " 

5760 SOUND 1,200,I5,4:30ÜND 1,0,5!50UND 1.150,15,45SQUND 1,0,5:30UND 1.10 

0.15.4:S0ÜNE' 1 .C.SrSOüND 1.80.3C.4:RETüRN 

5770 FOR 1=0 TO 700 STE? 100 

5'8C/ SOUND 1.2000+2M.l0*i'100.7 

5790 NE7T üRETURN 

5800 SOUND 1,284,20,5îS0UND 1.0,2!30UND 1,284.20,5:SOUND 1,3l?,20,5!SDUND 
1.35S.4C.5 !RETüRN 
56i0 ♦Aucres de -lia îlende* 

5S20 RESTQRE 5880 
5830 FOR ,nn=i TO 92 
5840 READ fr.ûu 


5850 SOUND i,fr,du,5 

5860 SOUND 2.fr/2,du.3 

5870 SOUND 4,fr*2,du,3 

5880 DATA 142,20,0,3,142,40,134,20,142,40 

5390 DATA 159,20,179,60,0,3,179,20,0,10 

5900 DATA 179,20,119.40,0,3,119,20,106,40 

5910 DATA 0,3,106,20,119,60,0,3,119,20 

5^20 DATA 0,10,142.20,0,3,142.40.134.20 

5930 DATA 142,40,159,20,1/9,60,0,3,179,20 

5940 DATA 0.10.P9.2G.119.40.0.3,119.20 

5950 DATA i06,40.0.3.l06,20.il«,60.0,3'; 

5960 DATA 119.20.0.10.119.20.106.40.0.3. 
5970 DATA 106,20,0.3,106,40,142,20.134,40 
5980 DATA 0.3.134.40.0.3.134.20,119.40 
5990 DATA 0.3,11^20,0,3,119,40,159,20 
6000 DATA 142.60.0.3.142.40.0.10,179,60 
6010 DATA 15R,20,142,20,134,20,142,60,119,40 
6020 DATA 0.10.159.40.134.20.142.40.159.20 
6030 DATA 179,40,213,20,239,40,0,10,179,60 
6040 DATA 159.20.142.20,134.20.l'42.60.119,40 
6050 DATA 0,10,159,40,134,20,142,40,159,20 
6060 DATA 179.60.P9.40 


A 


IBB 



6Ô7Ô 

NEn 

ne 

6350 

DATA 

76,65,80,73,78 

60B0 

RETURN 

6360 

DATA 

76,69,82,79,84 

6090 


6370 

DATA 

77,65,78,84,69 

6100 


CODES 

6380 

DATA 

77,69,82,76,69 

6110 


6390 

DATA 

77,73,76,65,78 

6120 

DATA 

65,73.71,76,69 

6400 

DATA 

77,79,82,83,69 

6130 

DATA 

65,83,80,73,67 

6410 

DATA 

77,79,82,85,69 

6140 

DATA 

66,73.67,72,69 

6420 

DATA 

77.79.85.76,69 

6150 

DATA 

66,73,83,79,78 

6430 

DATA 

77,85,76,69,84 

6160 

DATA 

66.79.69,85,70 

6440 

DATA 

77,85.76.79.84 

6170 

DATA 

66,85,84,79,82 

6450 

DATA 

79,75,65,80,73 

6180 

DATA 

67.65.82,80,69 

6460 

DATA 

79.82,86.69.64 

6190 

DATA 

67.72,73,69,78 

6470 

DATA 

80,65,78,68,65 

6200 

DATA 

67.82.65,66,69 

6480 

DATA 

80.79,78.69.B'î 

6210 

DATA 

67,39.71,78,69 

6490 

DATA 

80,79,85,76,69 

6220 

DATA 

68.73,78.68.69 

6500 

DATA 

82.65,84.79.78 

6230 

DATA 

68,73,78,71,79 

6510 

DATA 

83,65,73,71,65 

6240 

DATA 

68,79.71.85.69 

6520 

DATA 

83.69.82,?3.7& 

6250 

DATA 

69,73.63,69,82 

6530 

DATA 

83,73,78,71,69 

6260 

DATA 

70.85.82.69.84 

6540 

DATA 

84,65,80.73.82 

6270 

DATA 

71,82,73,86.69 

6550 

DATA 

84,65,84,79,35 

6280 

DATA 

71.85.69.80,69 

6560 

DATA 

84,65.85,80.69 

6290 

DATA 

72,69,82,79,78 

6570 

DATA 

84,73,71,82,69 

6300 

DATA 

72.73.66.79,85 

6580 

DATA 

84,82,85,73,69 

6310 

DATA 

72,85,80,80,69 

6590 

DATA 

86,65,67,72,69 

6320 

DATA 

72,89,69,78,69 

6600 

DATA 

86,73,83,79,78 

6330 

DATA 

73,83,65,82,68 

66 iO 

DATA 

90,69,06,32,69 

6340 

DATA 

75,79,65,76,65 
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LEXIQUE ANGLAIS/FRAIMÇAIS 


Michel ARCHAMBAULT 


L orsque l'on se débat avec une notice en anglaisi— c'est hélas fréquent — 
on se dit souvent "j'ai déjà recherché ce mot dans le dictionnaire et je ne 
m'en souviens plus". Alors, changeons nos habitudes : avant d'attaquer une 
lecture anglaise, lançons ce programme fichier. 

Mot inconnu ; on le tape au clavier. S'il est déjà au fichier, réponse presque 
instantanément (environ 1 seconde), s'il ne l'est pas, dictionnaire. Une fois la 
traduction trouvée, vite option C (= compléter) pour gonfler le fichier de ce 
nouveau mot anglais et ainsi de suite. A la fin, on sauvegarde le fichier ainsi 
augmenté. Le mien contient déjà 286 mots (ceux que je risque d'oublier) et 
ce n'est qu'un début... 

Ce logiciel est donc un gestionnaire de fichiers mais "très spécialisé", conçu 
uniquement pour cet usage, ce qui lui confère des performances que ne 
pourrait avoir un "gestionnaire à tout faire" du commerce. Y compris certains . 
progiciels tournant sur IBM-PC ! 


SES PARTICULARITÉS 

— Un seul et unique menu. On a supprimé les questions inutiles genre 
"nom du fichier à charger", puisque c'est toujours le même et qu'il se charge 
dès le départ... 

— Chaque fiche n'a que deux rubriques : mot anglais + sa traduction 
française. Elle tient sur une ligne d'écran, avec son numéro. 

— De ce fait, la saisie et la lecture se font en "plein écran". Il est en effet utile 
de pouvoir lire quelques lignes plus haut la fiche-mot que l'on a demandée il y 
a quelques minutes... Vous voyez pourquoi. 

— Au menu principal, il suffit de taper la lettre Initiale de ce que l'on veut faire 
(sans ENTER). De haut en bas, nous avons : 
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A : Anglais vers français (c'est la plus utilisée !). 

F : Français vers anglais. Eh oui ! La recherche se fait indifféremment dans les 
deux sens. 

C : Compléter le lexique. 

M : Modifier une fiche (correction d'erreur). 

Viennent ensuite les options moins fréquentes : 

E : Enregistrement du fichier (s'il a été complété ou corrigé). 

T : Tri aphabétique (par les mots anglais). C'est, avouons-le un petit luxe quasi 
inutile. 

I : Impression du fichier sur imprimante, un autre gadget... 

Q : Quitter le programme (= CLS : END). 

Quand on est dans l'une des rubriques courantes, il suffit de taper Q et 

^NTER pour revenir au menu. Ce retour est automatique pour les options E T■ 
et I. 

— En recherche "A" ou "F" tout le fichier est exploré de haut en bas à chaque 
demande, avec affichage des lignes-fiches satisfaisant la demande. Un bip 
sonore signale la fin de son travail. Pour 286 fiches, la durée est de 
1,2 seconde... 

On peut demander le mot exact ou une partie du mot en faisant suivre d'un 
astérisque *. 

Exemple : 

Je demande BLOW UP ; il l'a, il affiche : n® 43 : BLOW UP = SE PLANTER. 
Si j avais demandé BLOW-UP pas de réponse. Mais je l'aurais eu en 
demandant BLOW*. En demandant UP*, il m'aurait affiché les lignes de 
BLOW UP, SET UP, SUPPLY, etc... Vu ? 

La recherche avec un tronçon de mot n'est pas plus lente qu'avec le mot 
intégral. 

— La correction d'une fiche est très rapide. L'ancienne version apparaît à’ 
l'écran en bleu clair, vous écrivez en-dessous en jaune. Si l'un des deux mots 
n'est pas à corriger, faire ENTER quand le curseur est dessus, il sera conservé. 

II y a encore de nombreux petits détails sympathiques, mais étant de moindre 
intérêt, nous en parlerons plus loin. 

Le fichier de l'auteur ne peut occuper les pages du "CPC", en revanche, il sera 
logeable sur la disquette bi-menseulle commercialisée par SORACOM. Vous 
pourrez alors le compléter à votre guise. 

A présent, analysons un peu le listing. 


LE DÉPART 

Lignes 50 à 70, c’est la parade habituelle contre le buq AMSTRAD de 
l'OPENOUT (voir CPC n® 3). 

- Le tableau DIM M$(900,1 ) : (M^ = mots). Fixé très arbitrairement à 900 
voire 999, il pourra par la suite être modifié bien au-delà. La colonne 0 c'est 
le mot anglais limité à une longueur de 14 ; la colonne 1, c'est la traduction 
française, chaîne limitée à 21 caractères. 
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— Ligne 250 : SUPER IMPORTANT ! Ce GOTO 1000 ne va servir cfue pour la 
première fois parce qu'il n'y a pas encore de fichier à lire. Dès que le fichier 
ANGLOFRA aura été enregistré (même avec quelques mots), il faudra effacer 
cette ligne ou intercaler un REM (apostrophe). 

Si vous avez un lecteur de disquettes, le fichier sera sur la même face que le 
programme, en ce cas, vous ajouterez la ligne : 

315 GOTO 400 

— Ligne 350. CALL&BB06 stoppe le programme jusqu'à ce que l'on frappe 
une touche. 


LE MENU 

Toujours en ligne 1000 (mon "standard"), car en cas d'ennui il suffit de 
faire ESC et GOTO 1000. 

Le nombre de mots NF apparaît en haut à droite de l'écran. 

La ligne 1150 et le modèle 50000 sont de vieilles connaissances. Je rappelle 
que le module 50000 ("Réponse à un menu") est un sous-programme utilitaire 
enregistré que l'on joint au programme en cours d'écriture par MERGE . 

En ligne 1160, GOSUB vers le sous-programme demandé, puis retour en 1000, 

ou fin du programme en 1520. 


RECHERCHE DES MOTS 

En ligne 2000 (option anglais) ou 2500 (option français) P est le numéro de la 
colonne du tableau DIM à explorer. Puis tout le travail se fait en GOSUB 3000. 
En haut de l'écran, la fenêtre WIN DOW# 1 sert à rappeler le mode d'emploi 
(l'astérisque et Q pour quitter) et à entrer le mot M^ à chercher. Celui-ci est mis 
en majuscules, puis on examine s'il est terminé par * ; en ce cas il en est 
dépouillé et traité en 3500 à l'aide de la fonction INSTR. Si pas d'astérisque, 
traitement par = . Dans les deux cas, on vérifie que la longueur autorisée 
n'est pas dépassée. 

A chaque occurence rencontrée, la ligne réponse est affichée à I écran. 
Scrolling normal lorsque l'écran est plein. Un bip sonore, CHR$(7) prévient de 
la fin de la recherche de 1 à NF 


LA MODIFICATION (ou correction) - Ligne 5000 

On met le flag MODIF = 1 puis renvoi en GOSUB 10000 : ce sous-programme 
est le plus gros puisqu'il est commun avec la saisie de nouveaux mots. 

La fenêtre WINDOW#1 comporte quelques légendes et l'entrée du numéro de 
la fiche à corriger. 

L'ancien contenu apparaît en bleu clair, le curseur se place d'abord sous le mot 
anglais que l'on peut retaper (en jaune), ENTER ; le curseur va ensuite sous le 
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mot français, idem. Généralement, l’un des deux mots n'est pas à modifier, 
taper alors ENTER pour le conserver. 

Si on s'est trompé de numéro de fiche (cela arrive...), on presse donc deux fois 
la touche ENTER pour ne rien modifier. Il y a un CLS après chaque 
correction de fiche. 


L'ENTRÉE DE NOUVEAUX MOTS - Ligne 10000 

La fenêtre supérieure ne sert qu'à légender, ce qui laisse 19 lignes pour l’écran 
de saisie. Lorsque celui-ci est rempli, il n’y a pas de scrolling mais un CLS ; 
c'est dommage, mais je n'ai pas réussi à faire autrement, à cause de ces deux 
LINE INPUT sur la même ligne à la suite d'un PRINT USING. 

La longueur de chaque mot entré est vérifiée ; s'il est trop long, il est tronqué. 
UPPER^ le met en majuscules. 

SUPER ULTRA IMPORTANT ! Le LINE UP autorise l'entrée de divers signes de 
ponctuation tels que virgule, apostrophe, etc... mais n’entrez surtout pas de 
GUILLEMETS ! Il les accepte tant que le fichier est en RAM ; enregistrez-le et 
rechargez-le, et c'est le désastre à partir du premier guillemet (décalage). 
C'est un petit bug AMSTRAD à la lecture par la commande INPUT# 9. 

LE TRI - Ligne 7000 

C'est le banal "tri à bulle" par ordre alphabétique des mots anglais. Nous avons 
vu que le désordre ne peut ralentir la recherche des mots, alors à quoi sert-il ? 
A rendre le listing sur imprimante plus présentable ; en somme un gadget pour 
un autre gadget. En fait, il présente deux autres intérêts : le dépistage de 
doubles en examinant le listing. Une future et éventuelle extension du logiciel 
qui utilisera la "recherche par dichotomie". On en parlera en annexe... 
Attention, un tri à bulle est très lent, cela peut faire des dizaines de minutes 
pour quelques centaines de fiches... 


L'IMPRESSION - Ligne 8000 

Vous avez déjà le listing de votre fichier de 300 mots, vous venez d’en ajouter 
une quinzaine : il est donc pratique que le programme vous demande : "à partir 
de quel numéro ?" 

Pour soigner la présentation, le numéro est en PRINT USING et les mots sont 
tabulés. Une ligne en pointillés rejoint les mots anglais et français (fonctionnera 
sous SEIKOSHA-AMSTRAD). 

PETITS CONSEILS DIVERS 

— Pour un verbe anglais, ne mettez pas le TO. 

— Entrez les mots au singulier. 

— Si un mot anglais a deux sens, inscrivez-les dans le "mot " français en 
séparant par une virgule. Exemple : 
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PAD = BLOC, COMPLETER 

— Où enregistrer le fichier ? Magnétophone : sur une cassette séparée et en 
deux endroits : compteur = 3 et compteur = 50. Lecteur de disquettes : 
sur la même face que le programme + sur une disquette de sécurité. 

— En recherche, il est plus sécurisant d'utiliser l'astérisque. 

LA RECHERCHE PAR DICHOTOMIE 

Si plus tard le fichier atteint près de 2000 mots, chaque recherche durera près 
de neuf secondes ! Prohibitif ; d'où la méthode par dichotomie. Condition 
impérative : le fichier doit être triq . Soit, le.mot M$ à chercher. On le compare 
è celui du milieu du fichier (exemple : le n° 1000). Plus grand ou plus petit? 
Plus grand. On considère donc la seconde moitié (1000 à 2000) et on compare 
M(5 au mot milieu (n® 1500). Plus petit on compare alors M$ au mot n® 1250, 
etc. Dès que la tranche de localisation fait moins de 200 fiches, on procède à 
l'exploration fiche par fiche. Vous imaginez le gain en vitesse ? 


10 'LEXIQUE AN6LAIS-FRANCAIS / AMSTRAD 
20 'Michel Archaibault / 1985 

50 0PEN0UT"BID0N" 

60 MEMORY HIHEH-1 
70 CLOSEOUT 

200 MODE ÜBORDER 2îINK 2,20!PAPER OîPEN lîCLS 
210 DIM MI(900,1):DEFINT A-Z 

250 'GOTO 1000;'Ligne a effacer des que le fichier lots aura ete enregist 
re. 

300 'LECTURE FICHIER 

310 CLStPEN 3;L0CATE 9,4;PRINT “LEXIQUE ANGLAIS-FRANÇAIS";PEN 1 
320 LÛCATE 3,B;PRINT "PREPAREZ LA CASSETTE OU DISQUETTE" 

330 LOCATE 3,10;PRINT "CONTENANT LE FICHIER MOTS ANGLOFRA," 

340 PEN 2; LOCATE 10,15;PRINT "puis tapez une Touche...";PEN 1 

350 CALL l(BB06;CLS;PRINT;PRINT " CHARGEMENT des MOTS.";PRINT 

400 OPENIN "ANGLOFRA";INPUTI9,NF 

410 FOR 1=1 TO NF;INPUTt9,H$(I,0),MI(I,l);NEXT 

420 CLOSEIN 

1000 ‘MENU PRINCIPAL 

1010 CLS;1NK 0,1;INK 1,24 

1020 LOCATE 17,2;PEN 3jPRINT "M E N U*;PEN 2;L0CATE 29,2;PRINT NF;"iiots"! 
PEN 1 

1030 LOCATE 6,4;PRINT "A = Anglais —> Français" 

1040 LOCATE 6,6;PRINT "F = Français —> Anglais" 

1050 LOCATE 6,8;PRINT "C = Coapleter le lexique" 

1060 LOCATE 6,10;PRINT "M = Modifications" 
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1070 LOCATE 6,12!PRINT “E = Enreaistreient" 

1080 LOCATE 6,14:PRINT "T = Tri alphabétique" 

1100 LOCATE 6,16:PRINT "I = jüipression" 

1110 LOCATE 6,20!PRINT "Q = Quitter" 

1150 TEX$="AFCHETIQ":BOSUB 50000 

1160 ON K 60SUB 2000,2500,4000,5000,6000,7000,8000,1500 

1170 GOTO 1000 

1500 'FINAL 

1510 CLS:LOCATE 10,12;PRINT "VOUS POUVEZ ETEINDRE."!PRINT;PRINT 
1520 END 

2000 'RECHERCHE ANGLAIS->FRANCAIS 
2010 R$="ANBLAIS":P=0 
2020 60SÜB 3000 
2030 RETURN 

2500 'RECHERCHE FRANCAI5--)AN8LAIS 
2510 R$="FRANCAIS"!P=1 
2520 GOSUB 3000 
2530 RETURN 

3000 'RECHERCHE DE TRADUCTION 

3010 WINDOH jll.l,40,l,7:PAPERItl.O;PENIl,l;CLS 11 

3020 WINDOH i0.1,40,8,25!PAPER 2:PEN OîCLSïPRINT 

3030 L0CATEIl,4.2:PRINTIl,"HDt suivi de ♦ = contenant ce iiot" 

3040 LOCATE I1,2,4;PRINTI1,"Q pour QUITTERîLb BIP=Fin du fichier" 
3050 PEN#1.3;L0CATE ll,3,6!PRINTIl,CHRI(18)!"Hot *{R$;" ?: 

3060 LINE INPUT ll,Hl!H$=UPP£RI(HI)sIF I1$="Q" THEN 3900 

3080 IF RIGHT$(H$,!)="♦" THEN 3500 

3100 IF LEN(H$) >14+P«7 THEN 3050 

3110 FOR 1=1 TO NF 

3120 IF MI=I1I(I,P) THEN GOSUB 3800 

3130 NEXTîPRINT CHR$(7);:BOTO 3050 

3500 «l=LEFTI(HI,L£N(M$i-l) 

3510 IF LEN(M$) >14+P*7 THEN 3050 
3520 FOR 1=1 TO NF 

3530 IF INSTR(M$(I,P),H$) >0 THEN GOSUB 3800 
3540 NEXT:PRINT CHRI(7);;G0T0 3050 
3800 'AFFICHAGE LIGNE RESULTAT 

3810 PRINT USINE "lli";I;;PRINT TAB(5)|H$(I,0)îTAB(18);*:"{MI(I,l) 
3830 RETURN 

3900 WIND0NI0,1,40,I,25!PAPER OîPEN 1;CLS 
3910 RETURN 

4000 'COMPLETER LE LEXIQUE 
4010 CLS 



4020 LOCfiTE 14,4!PRINT "NOUVEAUX MOTS." 

4030 LOCATE l6,10îPRINT "D'ACCORD ?“:TEX$="0N";60SUB 50000 

4040 IF K=2 THEN 4060 

4050 N=NF+l!60SUB 1ÛOOO;NF=N-1 

4060 RETURN 

5000 'MODIFICATION 

5010 CLSîLOCATE 14,4!PRINT "MODIFICATION." 

5020 LOCATE 16,10;PRINT "D'ACCORD ?"!TEXI="ON’';GOSÜB 500Û0;IF K=2 THEN 59 
00 

5030 M0DIF=1 
5040 GOSUB lOOOO 
5050 H0DIF=0 
5900 RETURN 
6000 'ENREGISTREMENT 

6010 CLSîLOCATE 2,5:PRINT “SAUVEGARDE SUR DISQUETTE OU CASSETTE" 

6020 LOCATE 16,108PRINT “D'ACCORD ?"!T£.U="ON";SOSUB 50000 
6030 IF K=2 THEN 1000 
6080 OPENDUT "ANGLOFRA" 

6090 WRITE I9,NF!F0R 1=1 TO NFjWRITE I9,H$(I,0),MI(I,1)îNEXT 
6100 CLOSEOUT 
6900 RETURN 
7000 'TRI 

7010 CLSîLOCATE 13,4îPRINT "TRI DU FICHI£Rî"îLOCATE 16.11îPRINT "D'ACCOR 

D ?"îTEX$=''ON':GOSUB 50000:1F K=2 THEN 7900 

7020 LOCATE 16,21:PRINT “Patience..."îT=0 

7060 F=0:F0R J=1 TO NF 

7070 IF M$(J,0) >= M${J-1,0) THEN 7090 

70B0 FOR R=0 TO liM$(0,R)=H$(J,R)!M$(J,R)=MI(J-l,R)îH$(J-l,R)=M$(O.R)îNE 

XT;F=1 

7090 NEXT 

7100 IF F THEN 7060 
7900 RETURN 
8000 'IMPRESSION 

8010 CLSîLOCATE 5,10îPRINT "L'IMPRIMANTE EST-ELLE PRETE ?" 

8020 TEXI="DN":GOSUB 50000:1F K=2 THEN 8900 
8030 CLSîLOCATE 6,10:INPUT "A PARTIR DE QUEL NUMERO ? ",DI 
8040 D=VAL(DI)îIF D=0 OR D>NF THEN 8030 
8050 PRINT #8,CHRI(27);CHR$(64)îF0R I=D TO NF 

8060 PRINT I8,USINB "fil";I; jPRINT #8/ “;M$(I,0);STRING$(16-LEN(M$(I,0)) 
";H$(I,1) 

8070 NEXT:PRINT 18 
8900 RETURN 




10000 ' SAISIE 

10020 WIN00Wt0,l,4O,7,25!PAPER OîPEN lîCLS 

10030 WIND0Wll,l,40,l,5!PAFERIll,2:PENIfl,3:CLS#l 

10040 LOCATE #1,2,2!PRINT ll/Pour quitter ( Menu ) --> Q + ENTER* 

10050 LOCATE ♦1,2,4;PR1NT #1,"N*!SPC(5)!“ANGLAIS"5SPC(11);''FRANCAIS" 

10060 L=0 

10070 IF MODIF THEN 60SUB lOSOOsBOTO 10200 
10100 L=LM;LDCATE MîPRINT USIN6 “#ir;N 
10105 LOCATE 5,L;LINE INPUT ““,H$(N,0) 

10110 M$(N.0)=UPPER$IH$(N,0))îIF I1$(N,0)=*Q* THEN 10200 
10120 IF LEN(MI(N,0)) >14 THEN MI(N,0)=LEFTI(H$(N.O),14) 

10130 LOCATE 1B,L:LINE INPUT ":'',H4(N,1) 

10140 M$(N,l)=UPPERI(M${N,l))!lF LEN(I1I(N,1)) >21 THEN hl(N,l)=LEFTI(l1l(N 

, 1 ). 21 ) 

10150 N=N+1:IF L=19 THEN CLS!L=0 

10160 GOTO 10070 

10200 NIND0N»0,1,40,1,2S:CLS 

10300 RETURN 

10500 'FICHE A MODIFIER 

10510 PEN 2:L0CATE 3,1:INPUT "QUEL NUMERO ?l Q pour Quitter )!",N$!N$=UPP 
ER$(N$) 

10520 IF N$=“Q'' THEN PEN IjGOTO 10700 
10530 N=VAL(N$):IF N=0 OR N>NF THEN 10510 

10540 LOCATE l,3îPRINT USING "lirjNjîPRINT TAB(5);H4{N,0)|TAB(19);MI(N,1 
) 

10550 PEN 1 

10560 LOCATE 5,5!LINE INPUT "",M$îM$=UPPER$(n$) 

10570 IF Hl=*“ THEN 10600 

105B0 IF LEN(M$; >14 THEN MI=LEFTI(M$,14) 

10590 HI(N,0)=M$ 

10600 LOCATE 19,5;LINE INPUT "".MI;MI=UPPERI(MI) 

10610 IF Ml="" THEN 10690 

10620 IF LEN(M$) >21 THEN «$=LEFTI(M$,21i 

10630 ri$(N,l)=M$ 

10690 CLSîGOTO 10510 
10700 RETURN 

50000 'REPONSE A UN MENU 
50010 LT=LEN(TEX$);RI=''" 

50020 LOCATE 15-LT,24!PRINT "Réponse (*î 

50030 FOR 1=1 TO LT-1 

50040 PRINT MIDI(TE){$,I,1)5'','‘î!NEXT 
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50050 PRINT RI6HT$(TE!(I,1);")";CHR$I154);CHRI(243)!CHR$(207) 
50060 TEXI=UPPERS(TEX$) 

50070 WHILE R$='‘“;R$=INKEY$!WEND 
50080 R$=UPPER${R$)!K=INSTR(TEXI,RI) 

50090 IF K=0 THEN RI=''"!PRINT CHRI(7);5G0T0 50070 
50100 RETURN 

64535 •-FIN DE LISTING. 
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TURBO PASCAL 



Denis BOURQUIN 


L 'AMSTRAD possède déjà un compilateur PASCAL, mais ce compilateur 
fonctionne sous le système d'exploitation Basic et est de taille réduite ; il 
permet simplement une bonne initiation au langage PASCAL, mais il lui 
manque surtout les opérations sur les fichiers. Il manquait donc à 
r AM STR AD un compilateur performant et fonctionnant sous CP/M, il 
existe maintenant et nous ne pouvons espérer mieux. 


En effet, un des meilleurs compilateurs PASCAL : TURBO PASCAL est 
maintenant disponible sur AMSTRAD. Tous les programmeurs s'intéressant 
au langage PASCAL ont entendu parler de TURBO PASCAL* 

Pour ceux qui ne connaîtraient pas le langage Pascal, nous allons en dire 
quelques mots. 

Le langage Pascal a été développé en 1971 par le Pr. Nikiaus WIRTH à 
l'université technique de Zurich ; ce langage fut surtout utilisé, au début de son 
existence, dans les universités, mais depuis le début des années 80, il connaît 
un grand essor et est utilisé dans de nombreuses applications professionnelles. 
C'est un langage mettant en application la méthode de programmation 
appelée programmation structurée. 


Un Français qui étonne l'Amérique 

Mais avant de parler de ce qui a fait le succès de TURBO PASCAL, nous 
dirons quelques mots de son concepteur qui est français et s'appelle Philippe 
KAHN. Il a fondé, aux États-Unis, une société : BORLAND INTERNATIONAL. 
La qualité et les prix ridiculement bas de ses logiciels ont fait la force et la 
renommée de cette société. Pour s'en rendre compte, il suffit de regarder le 
prix du compilateur TURBO PASCAL sur AMSTRAD : 741,25 F, alors que 
jusqu'à ces dernières années le prix d'un compilateur Pascal souvent moins 
performant était de 10 à 20 fois supérieur. 
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Un compilateur Turbo 


Tout le monde connaît l'intérêt d'un langage compilé, mais regrette souvent 
le temps passé sous des éditeurs peu performants puis en compilation pour 
s'apercevoir qu'il restait une erreur et qu'il fallait revenir sous l'éditeur, 
rechercher cette erreur et recompiler. Comme nous le verrons par la suite, 
TURBO PASCAL rend aisées toutes ces tâches ingrates. Mais faisons un essai 
de ce fameux compilateur turbo. 

TURBO PASCAL est un compilateur qui tourne sous CP/M ; nous passons 
donc sous CP/M et regardons ce que contient la disquette TURBO PASCAL. 
Nous y trouvons un fichier TURBO.COM qui est le compilateur-éditeur, un 
programme d'installation du terminal propre à l'AMSTRAD, un fichier 
TURBO.MASG qui contient les messages d'erreurs, un fichier TURBO.OVR 
propre à la version CP/M et qui permet l'exécution de programme. COM sous 
TURBO comme des utilitaires de copie ou tout autre programme, un certain 
nombre de fichiers.PAS, qui sont des fichiers source de programmes PASCAL 
de démonstration que nous avons beaucoup appréciés, et enfin un fichier 
READ.ME qui est assez explicite par son nom. Ce dernier est un fichier texte 
qui contient un certain nombre de conseils et d'explications quant à l'installa¬ 
tion et l'utilisation de TURBO PASCAL sur AMSTRAD. 

TURBO PASCAL est un compilateur qui contient son propre éditeur de texte ; 
nous allons donc appeler TURBO pour écrire notre premier programme 
PASCAL. Les premiers messages s'affichent, nous voyons que nous sommes 
en possession de la version 3.00A de TURBO PASCAL pour CP/M-80,280. Et 
nous avons le message : INCLUDE ERROR MESSAGES (Y/N)?.Si nous 
répondons Y, nous avons un menu qui s'affiche, ainsi que la quantité d'octets 
mémoires disponibles, mais voyons la figure 1, exemple d'écran que nous 
allons expliquer. 

Sur cet écran apparaît la liste des commandes disponibles, et l'espace 
mémoire disponible pour l'écriture de nos programmes ; 6637 octets ; la 
première impression est que cet espace est plus que réduit sous CP/M. Il est 
possible d'augmenter sa taille en n'incluant pas les messages d'erreur; dans ce 
cas, l'espace disponible est de 7952 octets. En effet, sous CP/M, il reste 
environ 39 k à la disposition de l'utilisateur, le compilateur TURBO en 
occupant 31 k, il ne nous reste donc pour loger nos sources et nos objets que 
8 k. Mais rassurez-vous, avec TURBO PASCAL, il est possible de faire des 
programmes beaucoup plus grands que 8 k-octets. Notons que, dans ce cas, 
nous perdrons les avantages de rapidité de TURBO PASCAL. Les programmes 
correspondant à des applications importantes seront compilés dans un fichier 
.COM, pour être exécutés et, dans ce cas, ils pourront aller jusqu'à 39 k-octets 
de code. Il faudra prendre la précaution de diviser le source en plusieurs 
fichiers qui seront inclus à un fichier principal lors de la compilation, car il ne 
peut y avoir plus de 8 k-octets de source présents en mémoire. Et si votre 
application ne tient pas sur 39 k-octets, il vous reste encore la possibilité de 
scinder en overlay, carTURBO supporte aussi cette technique de programma- 
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tion. Nous venons de voir un exemple d'écran qui résume les commandes 
disponibles sur TURBO. Ces commandes sont accessibles par une lettre en 
majuscule. 

L : permet de changer l'unité de disque de travail. 

W : permet de changer le fichier de travail. 

M : permet de spécifier un fichier principal, ce dernier peut-être différent du 
fichier de travail. 

E : permet de passer sous l'éditeur incorporé à TURBO PASCAL 
C : lance la compilation dans le mode choisi par Option. 

R ; permet d'exécuter un programme compilé ou si le programme n'a pas été 
compilé, le compile avant de l'exécuter. 

S : permet de sauvegarder le source en cours. 

X : permet d'exécuter un autre programme en cours d'utilisation de TURBO 
D : permet de faire un directory de disque sous TURBO. 

Q ; retourne au système d'exploitation CP/M 

O : permet de choisir entre trois options, M, C et M. M est le code mémoire 
par défaut, le code objet se trouve en mémoire près la compilation C : le code 
objet issu de la compilation est écrit sur un fichierdisque.COM, H : le code 
objet est écrit dans un fichier chaîné ; ce fichier ne contient pas la librairie 
Pascal et sera donc appelé par un autre fichier. 



Mais passons tout de suite à un essai de l'éditeur. Nous choisissons l'option E 
dans le menu, une question apparaît : "Work file ?" Entrons essai.pas, l'écran 
s'efface, et nous sommes sous l'éditeur. 

Nous sommes en présence d'un éditeur pleine page très performant ; les 
déplacements à l'intérieur d'un texte sont obtenus à partir du pavé des flèches 
de L AMSTRAD, et il est possible de se déplacer d'un caractère, d'un mot. 
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d'une ligne ou d’une page. Cet éditeur peut effectuer l'indentation automa¬ 
tique, il peut recadrer chaque mot d'une ligne par rapport à la précédente, ce 
qui favorise la lisibilité du programme. A ces commandes s'ajoutent toutes les 
commandes d'insertion, suppression, déplacement, remplacement. Mais il 
n'est pas nécessaire de faire l'éloge de tels éditeurs qui sont bien plus 
agréables d'utilisation que les éditeurs ligne, et en plus quand ils sont bien 
faits, ça ne peut qu'augmenter leur intérêt 

Regardons maintenant la syntaxe de ce PASCAL. Il apparaît au premier coup 
d'œil jeté dans le manuel fourni avec la disquette qu'il suit de la définition du 
PASCAL STANDARD. Il est à noter que ce livre est rédigé en français et est 
très bien conçu ; il contient tous les renseignements nécessaires a l'utilisation 
de TURBO PASCAL Le débutant en PASCAL a ainsi à sa disposition une 
excellente introduction à PASCAL avec le livre et la disquette TURBO TUTOR, 
qui sont vendus séparément. 

TURBO PASCAL comprend un certain nombre d'extensions par rapport au 
PASCAL STANDARD, ce sont : 

— les variables du type adresse absolue, 

— la manipulation de bits et d'octets, 

— l'accès direct à la mémoire et aux ports d'entrées-sorties (la mémoire est 
considérée comme un tableau prédéclaré MEM de 65536 octets, il en va 
de même pour les entrées-sorties qui sont le tableau PORT de 256 octets). 

— les chaînes de caractères dynamiques, 

— l'ordre des sections dans la partie déclaration des programmes est libre. 

— la possibilité d'accéder aux fonctions du système d'exploitation par des 
procédures et fonctions prédéfinies : BDOS, BIOS, BDOSHL, BIOSHL, 

— la possibilité de 4 fichiers imbriqués, 

— la possibilité de générer du code machine en ligne par l'instruction INLINE, 

— les opérations logiques peuvent se faire sur des entiers, 

— la possibilité de chaîner des programmes avec variables communes, 

— les fichiers de données à accès aléatoire, 

— les constantes stucturées, 

— les fonctions de conversion de type. 

Nous avons relevé comme autre particularité les instructions BLOCKREAD et 
BLOCKWRITE qui servent aux manipulations de fichier sans type. Ces 
procédures travaillent sur des enregistrements de 128 octets. 

L'accès au multi-fenêtrage de l'AMSTRAD peut se faire par l'envoi de la valeur 
26 à l'écran et des coordonnées de la fenêtre. Exemple : si ces coordonnées 
sont XI, X2, Y1. Y2 et ont été déclarées BYTE, le positionnement dans cette 
fenêtre se fera par : WRITE (^26,CHR (XI—1), CHR(Y1—1), CHR(X2 1), 
CHR(Y2—1)). 

L'utilisation des variables dynamiques se fait au travers des procédures 
standards NEW et DISPOSE ainsi que les procédures MARK et RELEASE. 
TURBO PASCAL permet les manipulations de chaîne et possède de nom¬ 
breuses procédures pour cela ; CONCAT, COPY, DELETE, INSERT, LENGTH, 
POS. STR, VAL. 

En résumé, avec TURBO PASCAL, nous avons un compilateur PASCAL très 
complet. Notons que pour l'utilisation des possibilités graphiques de 
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l'AMSTRAD, TURBO PASCAL, dans sa version CP/M, ne contient aucune 
fonction ou procédure spécifique. 

Nous avons essayé d’utiliser les routines en ROM, mais ce fut sans grand 
succès. Rassurez-vous, il est prévu avec TURBO pour AMSTRAD un pack 
graphique qui permettra d'utiliser toutes les ressources de l'ordinateur, mais 
lorsque nous avons écrit ces lignes, nous ne le possédions pas ; lorsque nous 
I aurons reçu, nous en dirons quelques mots. 

Après avoir passé en revue la syntaxe, voyons ce qui fait aussi la force de ce 
Pascal : sa rapidité de compilation. Il n'est pas nécessaire de dire que le temps 
de compilation en mémoire est négligeable. Lorsqu'une erreur est rencontrée 
au cours de la compilation, il suffit d'appuyer sur la touche ESC pour retourner 
instantanément sous l'éditeur avec le curseur situé juste derrière cette erreur ; 
il n y a plus qu’à la corriger et relancer la compilation. La mise au point d'un 
programme est aussi aisée qu'en Basic. La compilation de programmes 
importants se fait sur disque dans un fichier.COM. Sur la disquette TURBO se 
trouve un programme de démonstration qui n'est rien d'autre qu’un tableur. Ce 
programme occupe 1200 lignes et est compilé en 30 secondes. Il permet de 
mettre en évidence les possibilités infinies de TURBO PASCAL. 

Nous avons apprécié les programmes de démonstration livrés avec la disquette 
tels que le minitableur, la commande lister, l'utilisation des fenêtres, l'utilisa¬ 
tion de la ligne de commande. 

L'AMSTRAD, grâce à son système d'exploitation CP/M, a pu se doter là d'un 
des meilleurs compilateurs Pascal actuels. 
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JOUER AVEC 
LES INTERRUPTIONS 



A mstrad est capable de faire plusieurs choses à la fois, et ce travail en 
"multitâche" est accessible, vous le savez, depuis le Basic. EVERY 
et APTE R n'étant pas universels, nous avons cherché à aller plus loin : 

Afficher l'heure en Basic sous le contrôle d'EVERY est extrêmement simple, 
seulement il est impossible d'inclure un tel sous-programme dans un 
programme utilisant des INPUT : la pendule se bloque pendant la durée de 
l'entrée des variables (elle est remise à l'heure ensuite). Devant un tel 
problème, on est conduit à utiliser le langage machine. 

L'AMSTRAD est capable de traiter les interruptions, synchrones ou 
asynchrones, auxquelles on peut associer des "événements"exécutables 
cycliquement. Plusieurs éléments sont paramétrables et, sans entrer en 
profondeur dans les détails, nous vous proposons, au moyen de deux petits 
exemples d'application, de faire plus ample connaissance avec ces 
interruptions. 

Deux types d'interruptions nous intéressent : 

— FAST TICKER apparaissant tous les 1/300® de seconde, 

— FRAME FLYBACK, tous les 1 /50® de seconde, correspondant au retour du 
spot assurant le balayage. 

Les équivalents "soft" de ces interruptions sont appelés "EVENTS" et, si 
leur manipulation s'avère un peu délicate au début, vous conviendrez que 
savoir les utiliser ouvre pas mal d'horizons. L'installation d'un "EVENT' suit un 
schéma relativement simple. L'événement est décrit par sa classe, sa priorité, et 
l'adresse de la routine qui est appelée pour le traiter. 

. La classe : événements synchrones ou asynchrones. Les événements syn¬ 
chrones sont traités immédiatement, les synchrones dès que le système a le 
temps. Pour les événements synchrones, on attribue une classe de priorité. 
Quant è l'adresse de la routine, elle est donnée au système lors de la "descrip¬ 
tion" initiale de l'événement. 

A chaque "EVENT” est attribuée une zone mémoire (d'un certain nombre 
d'octets en fonction du type d'interruption) réservée au système. 
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L'initialisation d'un EVENT se fait comme suit : 

HL contient l'adresse de la zone mémoire réservée. 

B contient "la classe". 

Bit 7 (6 s 4 3 2 1 0 

1 Asyn Express 0 niveau priorité adresse proche 
0 Sync Normal adresse lointeine 

C contient une valeurfonction de l'adresse mémoire de la routine d'événement 
(selon quelle est en RAM, ROM, ROM externe..). 

DE contient l'adresse de la routine qui sera exécutée à chaque interruption. 
Voici un premier exemple d'application : remplacer le curseur fixe par un 
curseur clignotant. On va donc, successivement, éteindre et allumer le curseur. 

On utilisera pour cela le FRAME FLYBACK (donc toutes les 20 ms). La zone 
mémoire à réserver pour le système est de 9 octets. Le type d'événement est 
asynchrone . La routine sera en RAM centrale. Le contexte a été sauvegardé 
à chaque exécution de la routine interruption : bien que cela ne soit pas 
nécessaire, notre auteur Eddy DUTERTRE a pris toutes ses précautions. Les 
routines en BB7B et BB7E correspondent respectivement à l'autorisation et 
l'interdiction d'affichage du curseur. 

Si le sujet (interruptions) traité ici rapidement, vous passionne, faites-le nous 
savoir, et nous ferons un article plus complet sur la question. 

10000 ÆMORY 47FFF 

10010 FOR n=AB000 TO &8029;READ d$;P0KE n,V.AL(*4’+di) :NEXT 
10020 ’ 

10030 CALL 48000:fCW 

10050 DATA 21.2A,80,06,B1,0E,00,11,0E,80 
10060 DATA CD,D7,BC,C9,C5,D5,E5.F5,3A,FF 
10070 DATA 7F,E6,10,28,05,CD,7B,BB,18,03 
10080 DATA CD.7E,BB,21,FF,7F,34,F1,E1,D1 
10090 DATA C1.C9 


PAGE 1 




8000 212A80 

LD 

HL.L802A 

Adresse du bloc EVENT. 

8003 0681 

LD 

B,81H 

Type asynchrone en mémoire centrale. 

8005 OEOD 

LD 

C,0 

Mémoire centrale, donc pas on ROM externe. 

8007 llOEBO 

LD 

DE.LBOOE 

Adresse de la routine à exécuter. 

800A CDD7BC 

CALL 0BCD7H 

Initialise le bloc d'EVENT. 

800D C9 

RET 



800E C5 L800E! 

PUSH BC J 

Sauvegarde du contexte avant traitement de 

800F D5 

PUSH DE 1 

l'interruption. 

8010 E5 

PUSH HL ( 


8011 F5 

PUSH AF 1 


8012 3AFF7F 

LD 

A,(7FFFH) 
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8015 E610 


AND 

lOH 

8017 2805 


JR 

Z.LSOIE 

8019 CD7BBB 


CALL 0BB7BH 

801C 1803 


JR 

L8021 

801E CDTEBB 

L8D1E: 

CALL 0BB7EH 

8021 21FF7F 

L8021Î 

LD 

HL,7FFF 

8024 34 


INC 

IHL) 

8025 Fl 


POP 

AF 

8026 El 


POP 

HL 

8027 DI 


POP 

DE 

8028 Cl 


POP 

BC 

8029 C9 


RET 


802A 00 

LB02A; 

NOP 



Effectue le clignotement (cadence) en fonc¬ 
tion du contenu de 7FFF. 


Restitue le context initial. 
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DES COULEURS PLUS CLAIRES 


Michel ARCHAMBAULT 


I ^NK... PEN... PAPER... BORDER...Bouh. que c'est compliqué ! Expliqué 
tout autrement, cela va devenir enfin clair : 

Il Y a cinq notions différentes : 

— Le numéro de référence de la teinte ; Il y en a 27 numérotées de 0 (noir) 
à 26 (blanc brillant). C'est la liste de la page E3.2 du manuel d'origine. 
Appelons-le RT, c'est-à-dire référence teinte. 

— La palette de teintes que l'on se sélectionne, c'est INK. En mode normal, 
mode 1. on n'a droit qu'à quatre INK. On les numérote de 0 à 3. Dès la mise 
sous tension (MODE 1), on nous propose les INK suivants : 

INK 0.1 : bleu parce que RT = 1 = bleu, 

INK 1,24 : RT = 24 c'est jaune vif, 

INK 2,20 : RT + 20, un turquoise vif, 

INK 3,6 ; RT = 6 = rouge vif. 

Vous voulez remplacer le turquoise par le vert de RT = 9 ? Facile, faites 

INK 2,9 (en mode direct ou dans un programme). En MODE 0, on a 16 INK sur 

la palette, de INK 0 à INK.15. Les quatre premiers (0 à 3) sont les mêmes RT 

que précédemment. A quoi correspondent-ils? Consultez le tableau de la page 

E3.4 du manuel. Vous voulez du noir (noir RT = 0) ? Ç'esMNK n° 5 

En MODE 2, on n'a que 2 INK, INK 0 et INK 1. 

> 

— PAPER, c'est la couleur de fond. Par défaut, l'amstrad prend pour PAPER 
ri N K 0, bleu foncé. Vous voulez un fond rouge ? Faites PAPER 3, parce que 
INK 3, c'est le rouge sur notre palette. Si vous faites PAPER 0,3, il y aura 
clignotement bleu-rouge (aucune rétine n'y résiste...). 

— PEN (stylo en anglais). C'est la couleur des caractères, des traits. Même 
syntaxe que PAPER, on le fait suivre du numéro d'INK. Par défaut, c'est INK 1 
(jaune vif). Vous voulez des lettres bleues sur fond rouge ? Faites PAPER 3 : 
PEN 0. On peut écrire PEN avant PAPER, peu importe. ‘ 

— BORDER, c'est la couleur de la bordure, elle est totalement indépendante 
des couleurs présentes sur la palette, car on fait suivre BORDER, non pas d'un 
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numéro INK, mais du numéro RT, désiré (de 0 à 26). En MODE 1, on peut avoir 
4 teintes en INK plus une cinquième en BORDER. 

Exemple, BORDER 16 = orange clair. 

OK ? Bon, alors voyons quelques cas particuliers. 

— Par étourderie PAPER et PEN ont le même numéro d'INK ; pire qu'un CLS 
parce qu'il n'y a pas de "READY". Ne vous affolez pas, pressez ESC deux fois 
(Break) puis tapez PEN 1 (ou 2 ou 3) et ENTER, et votre texte réapparaît. 

— En MODE 1, faisons PEN 6, alors que l'on ne devrait pas dépasser PEN 3 ; 
pas de message d'erreur, l'AMSTRAD repart à INK 0 ; PEN 3 = PEN 0 : PEN 5 
= PEN 1 : PEN 6 = PEN 2 ; etc... jusqu'à PEN 26. 

— Pour modifier les couleurs. Rappelez-vous les deux choses prises par 
défaut lors de la mise sous tension, à savoir la palette des INK/n° RT (page E3.4) 
et le fait que PAPER = tNK 0 et PEN = INK 1. ou de dire PEN 2 ou PAPER 3, 
ou de combiner ces deux techniques. 

Attention ! Il y a des mariages malheureux entre deux couleurs voisines ; perte 
de netteté (l'AMSTRAD n'y est pour rien, le moniteur non plus), ou contraste 
trop faible ou insoutenable. A vous de chercher quelques bons accords. 
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KILOBYTE 



Philippe FEREZ 
D.CARDON 


L e chapitre cher aux paresseux mais aussi à ceux qui débutent et 
ont envie de découvrir le clavier sans taper des kilo... mètres de 
listing. 

Septembre, la fin des vacances I Conservez le souvenir de la mer et 
du cri des mouettes avec le programme de D. CARDON. A écouter en 
fermant les yeux. 

Philippe FEREZ, lui, vous propose un petit utilitaire permettant de redé¬ 
finir facilement les touches du pavé numérique. 

Vous pouvez leur affecter les mots-clés les plus utilisés, en vue de sai¬ 
sir un long listing. 

La phase "affectation" étant achevée, vous pourrez vérifier qu'il n'y 
a pas d'erreur. 

L'appui sur "F" permet de quitter le programme. 

10 ,-Bruit de vagues --i9/5/8S 

- D.Cardon - 

20 ENV 1 , 1 , 5 , 1 , 10 ,1,10,15,-1,50;c=l 

30 WHILE INKEY:i-«="":tps“/.=RND*400ï va7.=RND-«- 

21:mou7.=RND*2 

40 SOUND c ,0,300+tps7.,0,1 , , 10+va7.: C--3-C: 

IF mou7.= l THEN GOSUB 100 
50 WENDsCALL 8<BCB68END 

100 '-Mouette- 20/5/85 -D 

«Cardon - 

110 ENV 2,1,RND*(7+1),20 

120 FOR j=*l TO 2;at7.«RND*100:h27.«RND*5 

130 FOR i-1 TO 23 
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140 READ dy.,h‘/.,vy. 

150 ^OUND 4,h7.+h2y.,d7.,V/.,2:NEXTsGÜUND 4, 
0,15+at7.!RESTüRE 
160 NEXT:RETURN 

170 DATA 1,70,1,2,69,4,1,68,5,1,67,5,1, 
6,6,1,65,6,1,60,7,2,55,7,3,52,7,4,51,7, 
,50,7,18,48,6,2,50,7,1,51,6,1,52,5,1,53, 
5,1,54,4,1,55,4,1,57,3,1,58,3,1,59,2,1,6 


0,1,3,65,1 


10 MODE 0:INK 1,1;INK 0,15 

20 LÜCATE 1,1Os PRINT " REDEFINITION 


DU 


PAVE NUirlERIQUE" 


30 FOR 1 = 1 Tü 400 BTEP 10;PLOT 1,I ; DRAW 

640,I,1;NEXT 

40 BORDER 4,12 

50 FOR 1=1 TO 600;SOUND 1,3932/I,1,5;NEX 
T 

60 BORDER 1 

70 MODE 2;N=-3 

80 FOR J=1 TO 4;READ A,C 

90 FOR 1=48 TO 480 STEP 192 

100 N=N-M;PLOT I,A 

110 DRAW 1+48,A:DRAW 1+48,0 

120 DRAW 1,0;DRAW I,A 

130 PLOT 1-4,A+4:DRAW 1+52,A+4 

140 DRAW 1+52,0-4;DRAW 1-4,0-4:DRAW 1-4, 

A+4 

150 LOCATE (1+24)/8, (0+32)/16;PRINT N 
160 NEXT I,J:DATA 368,320,272,224,176,12 
8,80,32 

170 LOCATE 9,22:PRfNT " 0" 

180 LÜCATE 33,22cPRINT " "îCHR$(144) 

190 LÜCATE 55,22:PRINT "ENTER.L=128 
200 FOR 1=1 TO 12:READ F,B 
210 LOCATE F,G:INPUT V# 

220 KEY L,V$+CHR$(32):L=L+1:NEXT 

230 DATA 15,22,15,16,39,16,63,16,15,10,3 


210 


>0 Ül 



0- C M C'i # C M CM C M C M 


,10,63,10,15,4,39,4,63,4,39,22,63,2 
40 LÜCATE 29,25:PRINT "(* * F = F I N 


2 


*) " 

50 WINDÜW #1,5,75,13,13:PAPER #1,1:PEN 
1,0:CLS #1 

60 INPUT #1," ESSAIS : ";E'$ 

70 IF E$="F" QR E$=‘'f" THEN 290 
80 CLS #1;G0TÜ 260 
90 MODE 1 
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TRUCS ET ASTUCES 



J.M. LAQUITTANT 

50250 DONVILLE DES BAINS 


Dans votre rubrique Banc d'Essai des Logiciels du n° 3, vous présentez 
’ MULTIGESTION. Contrairement à ce que vous annoncez, il est possible de 
titrer les rubriques. Il faut valider le curseur clignotant avec COPY et entrer 
le titre désiré dans les 18 postes utilisables. Le report est de plus automa¬ 
tique de l'option "Comptabilité journalière" vers l'option "Budget". 

M. ROUSSELET 
95220 HERBLAY 

Pour une fois que le Basic s'avère plus intéressant que l'assembleur, je ne 
résiste pas au plaisir de donner une suite au programme CIRCLE d'Eddy 
DUTERTRE, paru dans CPC n° 3. Mon petit programme ci-dessous permet de 
tracer un cercle quelconque en 1 à 2 secondes, ce qui est assez rapide. 

Le principe : au lieu d'utiliser les équations paramétriques classiques X = Yc -I- 
R cos t et Y = Yc -I R sin t,on détermine une suite de points du cercle où les 
coordonnées de chaque nouveau point se déduisent de celles du précédent. 
Les paramètres 0.01, 0.141, 0.99 et 45 ont été choisis empiriquement. 

10 INPUT 'ABSCISSE DU CENTRE r'îXC 
20 INPUT 'ORDONNEE DU CENTRE :'îYC 
30 INPUT 'RAYON DU CERCLE l'jR 
40 X1=XC+R ! Y1=YC 

50 E=0.01*XC+fl.l41iYC : F=0.01*YC-0.141* 

XC 

60 FOR N=1 TO 45 

70 X2=E*0.y9«Xl-0.141*Yl : Y2=F+0.99#Y1+. 

0.141«X1 

•‘80 PLOT XI,Y1 ; DRAW X2,Y2 
90 XlsX2 : YlsY2 
100 NEXT N 
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Imprimante peut économe 

Si vous utilisez une Imprimante autre que la DMP 1 sur votre AMSTRAD, vous 
avez peut-êtfe constaté qu'elle avait une fâcheuse tendance à laisser une ligne 
blanche entre deux lignes imprimées. Certains préconisent de modifier par soft 
(cela est possible sur certaines imprimantes) l'espacement entre les lignes ; 
c'est bien, mais c'est aussi une manière de masquer le défaut. La solution 
passe par l'examen de la description du connecteur CENTRONICS : on 
s'aperçoit que, si la broche 14 est forcée à la masse, l'imprimante effectuera un 
saut de ligne automatique après chaque impression (AUTO LINE FEED). C'est 
l'origine du défaut car l'AMSTRAD envoie une masse sur ce point (toutes les 
liaisons "non utilisées" par l'interface AMSTRAD étant, a tort, fixées a la masse). 
Le remède consiste donc à isoler ce point 14, au moyen d'un minuscule 
adhésif, ou à couper le fil correspondant sur la nappe, mais là, gare ! ne vous 
trompez pas... 

Christian HUGEL 
68170 RIXHEIM 

Voici comment réaliser un miracle avec très peu de composants : avoir la 
couleur en possédant un AMSTRAD monochrome. Naturellement, vous aurez 
compris qu'il ne s'agit pas de transformer le moniteur, mais plus simplement 
de réaliser un cordon qui raccordera la console au téléviseur couleur familial, 
pourvu que celui-ci soit doté d'une prise Péritel. Le coût de la réalisation est 
extrêmement bas, même en tenant compte de l'alimentation 12 volts dont 
nous donnons un shéma. Cette alimentation permet de déconnecter la partie 
réception HF du téléviseur. Elle est indispensable car, l'AMSTRAD fonction¬ 
nant sous 5 volts, ne permet pas de commander la commutation via le câble. 
Nomenclature des composants 

— 1 connecteur Péritel 

— 1 prise DIN mâle 6 broches à 60 

— 3 mètres de câble à 5 conducteurs 

— 1 résistance 100 ohms (brun-noir-bmn-or) 

— 1 alimentation 12 V/500 mA type calculatrice 
ou 

— 1 transformateur 220 V/12 V 

— 4 diodes IN4001 ou 1 N4007 

— 1 condensateur 1000 uF/35V 
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KILOBYTE 



I maginez que votre AMSTRAD vient de tomber en panne : il ne lui reste plus 
qu'un petit kilo-octet de mémoire. Saurez-vous écrire des programmes 
originaux performants qui ne tiennent que dans ce kilo-octet ? Attention ! 
vos programmes devront être écrits en Basic, mais les routines en code 
machine présentées sous forme de data sont acceptées. Faites-nous parvenir 
vos progammes sur cassette, accompagnés ' d'une brève explication. Les 
cassettes vous seront retournées si vous le demandez. 

Alors, tous à vos claviers. Il faut réussir à loger le maximum d'intelligence 
dans un kilo-octet. Les meilleurs programmes seront mis à l'honneur dans CPC 
et leurs auteurs récompensés. 

Deux fainéants astucieux pour KILOBYTE ce mois-ci. 

Erik BAJART nous propose d'apprendre le MORSE en traduisant les textes 
entrés en codes visuel et auditif. Si ce n'est pas la meilleure méthode pour 
débuter, elle pourra peut-être susciter des vocations. 

Michel DUBOIS, quant à lui, préfère faire réviser aux enfants leurs tables de 
multiplication, tout en faisant travailler la mémoire. Savant mélange de 7 x 5 = 
et du jeu du "retourné", le tout en quelques lignes. Au travail ! 


10 BORDER 5: MODE 1 : PR INT: DEF INT a-7.:s=12 
5:EN0 1,15,1,1:IF HIMEM>43900 THEN SYMBO 
L AFTER 95: SYMBOL 95,0,0,0,0,0, ?<7E , 8<7E 
20 F'RINT,"*** MORSE "0123456789A 

BCDEFBHIJKLMNOPQRSTUVWXYZ.":C$=" 
0BCAePX\'''7.8: , "+CHR* (34) + "2.0*7-4 ' S</6=» ( 
i>1+9î <5SX,>AMM": PRINT: PRINT: PRINT: INPUT 
"DUREE D'UNE NOTE <5 a 30) ";d:PRINT:PRI 
NT"Ecrivez le message :":PRINT:LINE INPU 
T m* 

30 m*=UPPER*<ra*):PRINT:PRINT:e=53:SOSUB 
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40: FOR i = l TO LEN (rn$) : a'-INSTR (aÿ.MID* (m$ 
,i , 1) )+l:e=AgC(l'1ID* (c#,a) )-32-64* (a>37) : 
BOSUB 40:NEXT:0=42:GOSUB 40:PRINT: PRINT: 
PRINT"EncDre (0-N> ? ";:WHILE i#="":i$=U 
PPER$(INKEY$):WEND:PRINT i$:IF iÿ="0" TH 
EN RUN ELBE END 

40 e$=MIDt(BINi:(e) ,2) :FOR j = l TO LEN(e$) 
:bi:=mD#(0$, j , 1 ) : IF b$="l‘' THEN PRINT" " 
;:BDUND l,s,3*d,15 ELBE IF b$="0" THEN^P 
RINT".:SOUND l,s,d,I5 ELBE PRINT" ":SO 
UND 1 ,s,4*d , 0 

50 SOUND l,s,d,0:WHILE SQ(1)>127:WEND:NE 
XT J: PRINT" SOUND 1,s,2*d,0:WHILE SQ( 
1)>127:WEND:RETURN 


I WINDOW #1,1,40,1,1 :RANDOMIZE TIME:n = IN 
T(RND(1)*8)+2:F0R 1=1 TO 8 STEP 2:j=INT< 
i /2) +6: a*=CHR$ (n+48) + "!■! "+CHRÆ ( j+48) : SOSU 
B ll:a$=STRi--(n*j) :eOSUB 11 : NËXT: CLS: k=2: 
GOSUB 7 

3 INPUT#1,1 ,ni:k=l: BOSUB 7: IF e(l)=e(tii) T 
HEN q=q + l: 0 (1)=0: 0 (m)=0: GOTO 5 

4 k=2:GOSUB 7 

5 IF q=4 THEN END 

6 GOTO 3 

7 c=0:F0R y=300 TO 200 STEP -100:FOR x=9 
6 TO 336 STEP 80;I’10VE !<, y : c=c + l : IF 0 (c) = 
0 THEN 10 

8 IF k=2 THEN FOR 1=1 TO 34:DRAWR 0,-80, 
1:M0VER 1,0:DRAWR 0,80:N0VER 1,0:NEXT:L0 
GATE !</16+3, (400-y) /16+3: IF e(c)<>0 THEN 

PRINT USING "#"sc 

9 IF k=l THEN IF'c= 1 OR c=m THEN MOVER 2 
,-2:F0R 1=1 TO 32:DRAWR 0,-76,0:MOVER 1, 
0:DRAWR 0,76:MOVER 1,0: NEXT: LOCATE >(716+ 
2,< 400-y >/16+3: PRI NT t*(c) 

10 NEXT:NEXT:RETURN 

II h = INT(RND(2)*0)+1 : IF t$(h)<>""THEN 11 
12 t-f (h)=a$:e(h)=n*J:RETURN 
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